const n = 15; var a: array[1..n] of integer; i, s, X: integer; begin writeln('Введите значение Х'); readln(X); Randomize; for i := 1 to n do a[i] := random(100) - 50; // случайные числа в интервале [-50..50] s := 0; for i := 1 to n do if (a[i]) < X then s := s + abs(a[i]); writeln('Исходный массив'); for i := 1 to n do write(a[i]:4); writeln; writeln('Искомая сумма:', s:3) end. Контрольный пример: Введите значение Х 5 Исходный массив 17 -11 4 35 -13 -47 3 25 -50 4 28 33 -6 49 -48 Искомая сумма:186
Объяснение:
m = 45, дальше идёт обработка массива Dat от 4 до 10
Если Dat[k] > Dat[1] тогда m будет прибавлять в себя этот элемент массива
Dat[4] = 15, условие ложно цикл идет дальше
Dat[5] = 20, условие ложно, цикл идет дальше
Dat[6] = 80, условие истинно, m= 45+45=90, цикл идет дальше
Dat[7] = 35, условие ложно, цикл идет дальше
Dat[8] = 70, условие истинно, m = 90+45=135, цикл идет дальше
Dat[9] = 10, условие ложно, цикл идет дальше
Dat[10] = 45 условие истинно, m = 135 + 45 = 180, цикл завершен
Вывод m (180)
ответ: 180
Выполняет действия, про которые он думает, что это программирование,
а на самом деле это рассыпание дерьма по кочкам.