Создать массив из n случайных чисел и вывести нечетные числа

Question

Информатика

Света

13 апреля, 16:57

Создать массив из n случайных чисел и вывести нечетные числа

+5

Ответы (1)

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

Душа · Answer 1

Var a:array[1 ... 20] of integer;

i:integer;

begin

randomize;

for i:=1 to 20 do a[i]:=random (10) + 1;

for i:=1 to 20 do if a[i] mod 2 0 then write (a[i],' ') ;

end.