Question

В одномерном массиве найти сумму и количество положительных элементо Дан массив А(5) на фото пример нахождения количества положительных элементов​

Answer 1

Если что не так, поправлю.

program v8;

var a:array[1..10] of integer;

 n,i,sum,kol:integer;

begin

sum:=0;

kol:=0;

randomize;

for i:=1 to 10 do a[i]:=random(100)-50;

for i:=1 to 10 do write(a[i]:5); writeln;

for i:=1 to 10 do  

 begin

 if a[i]>0 then sum:=sum+a[i];

 if a[i]>0 then kol:=kol+1;

 end;

 writeln('Сумма положительных элементов ', sum ,' Количество положительных элементов ',kol);

end.