Найти сумму всех отрицательных чисел однородно массива. массив вводится с клавиатуры. паскаль авс.

239

470

Посмотреть ответы 2

Ответы на вопрос:

Ferzpi

Информатика

4,8(36 оценок)

Const nn = 50; var t: array[1..nn] of integer; i, n, s: integer; begin writeln('введите количество элементов в массиве (n< 51): '); readln(n); writeln('введите элементы массива'); s: =0; for i : = 1 to n do begin read(t[i]); if t[i]< 0 then s : = s + t[i] end; writeln('сумма отрицательных элементов массива равна ', s) end. тестовое решение: введите количество элементов в массиве (n< 51): 10 введите элементы массива 5 -6 2 0 4 11 -8 0 1 -2 сумма отрицательных элементов массива равна -16