Массив из 20 элементов, заполнен случайными числами в диапазоне от - 50 до 50. Вывести на экран, посчитать количество нечетных чисел

Question

Информатика

Евлампия

27 июня, 11:33

Массив из 20 элементов, заполнен случайными числами в диапазоне от - 50 до 50. Вывести на экран, посчитать количество нечетных чисел

+4

Ответы (1)

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

Анюта · Answer 1

Const N = 20;

Var i, k:integer; m:array [1 ... N] of integer;

Begin

randomize;

for i:=1 to N do begin

m[i]:=random (101) - 50;

writeln (m[i]) ;

end;

for i:=1 to N do

if m[i] mod 2 0 then

inc (k) ;

writeln ('Kol-vo netchetnih = ', k) ;

readln;

end.