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

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