В одном массиве произвольных чисел найдите количество нечетных элементов (Паскаль)

Const

n=20;

var

a:array[1 ... n] of integer;

i, s:integer;

begin

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

s:=0;

Randomize;

for i:=1 to n do begin

a[i]:=Random (100) - 50;

if a[i] mod 2 0 then s:=s+1;

write (a[i]:5)

end;

writeln;

writeln ('Количество нечетных элементов равно ', s)

end.

Тестовое решение:

Исходный массив

-10 - 26 - 5 36 - 48 41 - 10 5 46 - 1 - 5 1 19 - 11 - 10 31 9 - 31 - 4 - 40

Количество нечетных элементов равно 11