Посчитать сумму и произведение тех элементов массива, которые являются нечётными и меньше 30. (Паскаль)

Question

Информатика

Мира

8 июня, 17:31

Посчитать сумму и произведение тех элементов массива, которые являются нечётными и меньше 30. (Паскаль)

+3

Ответы (1)

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

Мелетьюшка · Answer 1

Var

a: array[1 ... 10] of integer;

i, s, p: integer;

begin

for i:=1 to 10 do

readln (a[i]) ;

s:=0; p:=1;

for i:=1 to 10 do

if (a[i] mod 2 > 0) and (a[i] < 30) then

begin

s:=s+a[i];

p:=p*a[i];

end;

writeln (s) ;

writeln (p) ;

end.