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

Question

Информатика

Фаузар

6 февраля, 09:45

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

+4

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