Сформировать массив из 10 произвольных чисел. Определить сумму положительных, произведение отрицательных и количество нулевых элементов этого массива.

Question

Информатика

Римуля

19 ноября, 11:47

Сформировать массив из 10 произвольных чисел. Определить сумму положительных, произведение отрицательных и количество нулевых элементов этого массива.

+3

Ответы (1)

Знаете ответ?

Туся · Answer 1

Var

m : array[1 ... 10] of Integer;

i, s, p, n : Integer;

Begin

s:=0; p:=1; n:=0;

For i:=1 to 10 do

Begin

m[i]:=-100+Random (201) ;

Inc (n, Ord (m[i]=0)) ;

If m[i]>0 then s:=s+m[i];

If m[i]<0 then p:=p*m[i];

end;

Writeln (s,' ', p,' ', n) ;

end.