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

Question

Информатика

Петоха

30 ноября, 14:19

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

+3

Ответы (1)

Знаете ответ на вопрос?

Тама · 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;