Дана последовательность из N случайных чисел в интервале [-50; 50]. Определить количество нечетных чисел имеющих четный порядковый номер.

Напишите программу через паскаль.

Const n=10;

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

k, i:integer;

begin

Randomize;

for i:=1 to n do begin

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

write (a[i],' ') ;

end;

writeln;

k:=0;

for i:=1 to n do

if (a[i] mod 20) and (i mod 2=0) then k:=k+1;

writeln ('k = ', k) ;

end.

Пример:

-28 - 27 - 46 - 20 - 6 - 15 44 - 41 2 - 50

k = 3