Question

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

Answer 1

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.