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

Program jht;

var

A: array [1 ... 100] of integer;

i, n: integer;

begin

Writeln ('Введите число элементов массива');

readln (n);

for i:=1 to n do A[i]:=random (1000);

write ('Исходный массив: ');

for i:=1 to n do writeln (A[i],' ');

write ('Нечетные элементы массива: ');

for i:=1 to n do if A[i] mod 2=1 then write (A[i]);

readln;

end.

Для определения нечетности числа используем функцию языка паскаль a mod b - остаток от деления числа a на число b. Если очередной элемент при делении на 2 дает 1 по этой функции, то он нечетный.