Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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