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

Question

Информатика

Олена

18 декабря, 21:22

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

+2

Ответы (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.