Задан массив ,который состоит с положительных и отрицательных элементов.Найти сумму...

Question

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

Answer 1

Var a:array[1..100] of integer;
 n, i, k,sum: integer;
 begin
  read(n);
  k:=0;
  sum:=0;
   for i:=1 to n do read (a[i]);
   for i:=1 to n do
     begin
       if (a[i]<0) then k:=k+1 else <br>       sum:=sum+a[i];
end;
end.

вроде так :)