Задан массив ,который состоит с положительных - вопрос №2317477 от russlan4ik1 30.11.2020 08:48

Question

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

russlan4ik1 · Answer

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.

вроде так :)