Дан целочисленный массив размера 20, числовые значения которого вводятся с клавиатуры. Вывести все содержащиеся в данном массиве начетные числа в порядке убывания их индексов, а также их количество.

Var

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

i, k:integer;

Begin

Writeln ('Перечислите элементы массива: ') ;

For i:=1 to 20 do

read (a[i]) ;

For i:=20 downto 1 do

begin

If ((a[i] mod 2) 0) then

begin

k:=k+1;

write (a[i]:2) ;

end;

end;

writeln (' kol = ', k) ; / /

End.