Составьте программу для решения следующей задачи массив б задан случайным образом подсчитать сумму элементов массива состоящих из нечётных чисел

Question

Информатика

Христина

4 января, 19:05

Составьте программу для решения следующей задачи массив б задан случайным образом подсчитать сумму элементов массива состоящих из нечётных чисел

+3

Ответы (1)

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

Тая · Answer 1

Var b:array [1 ... 100] of integer; s, i:integer;

begin

for i:=1 to 100 do

begin

b[i]:=random (-100,100) ;

if odd (b[i]) then s:=s+b[i];

end;

write (s) ;

end.