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

program arr;

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

n: integer;

begin

randomize;

for i: integer: = 1 to 20 do

begin

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

write (a[i] : 5);

end;

writeln ();

for i: integer: = 1 to 20 do

if (a[i] mod 2 = 1) or (a[i] mod 2 = - 1) then

begin

n: = n + 1;

write (a[i] : 5)

end

else write (' ');

writeln ();

writeln ('Всего нечетных чисел чисел: ', n)

end.