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

Question

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

Answer 1

Const N=30;
var a: array [1..N] of integer;
i: integer;
begin
for i:=1 to N do 
a[i]:=random (20);
if a[i] mod 2 <>0 then 
wriiteln (a[i]); end.