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

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