Question

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

Answer 1

var

array a[1..5] of integer;

i,sum,pr,pol,otr:integer;

for i:=1 to 5 do 

readln(a[i]);

sum:=0;

pr:=1;

pol:=0;

otr:=0;

for i:=1 to 5 do begin

sum:=sum+a[i];

pr:=pr*a[i];

if a[i]>0 then

pol:=pol+1;

if a[i]<0 then

otr:=otr+1;

end;

writeln(sum, ' ', pol, ' ',pr, ' ',otr);

end;