Массив содержит N случайных двузначных чисел. Определить сколько в данном массиве четных чисел. Вывести все его элементы с нечетными номерами.

const n=20;var a:array [1..n] of integer;k,i:integer;beginwriteln('Исходный массив:');for i:=1 to n do begin a[i]:=random(90)+10; write(a[i],'  '); end;writeln;k:=0;for i:=1 to n do if a[i] mod 2 = 0 then k:=k+1;writeln('В массиве ',k,' четных чисел');writeln('Элементы с нечетными номерами:');for i:=1 to n do if i mod 2 <> 0 then write(a[i],'  ');end.Пример:Исходный массив:55  40  42  16  52  12  46  58  75  72  39  51  54  64  83  20  77  37  52  23  В массиве 12 четных чиселЭлементы с нечетными номерами:55  42  52  46  75  39  54  83  77  52