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

1

Ответы и объяснения

2014-02-12T18:44:45+00:00
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
       sum:=sum+a[i];
end;
end.

вроде так :)