Создать массив из n случайных чисел и вывести нечетные числа язык программирования - паскаль

Question

Информатика

Владя

16 февраля, 13:24

Создать массив из n случайных чисел и вывести нечетные числа язык программирования - паскаль

+3

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