{Файл: progam_stud.pas
Задача:
   Найти количество элементов четных и больше 20
Автор:
   
Дата:
  }
const
  N=5;  
var 
a         : array [1..N] of integer;
i, k      : integer;

begin
  {Ввод}
  writeln ('введите массив');
  for i:=1 to N do
    begin
     write ('введите a[',i,']=',a[i],'  '); 
     readln(a[i]);
    end;
 writeln ();
 
 //решение
 k:=0;
 writeln ('элементы массива четных и больше 20');
 for i:=1 to N do
    begin
      if (a[i] mod 2 = 0) and (a[i]>19)then
        begin
            write ('a[',i,']=',a[i],'  '); 
            k:=k+1;//подсчет количества
        end;
    end;
    writeln ();
 
 //вывод
 writeln ('количество элементы массива четных и больше 20 = ', k);  
end.