var
i,c:integer; //Объявляем переменные
mas: array [1..20] of integer; //Объявляем массив
begin
c:=0; //Обнуляем переменную c
writeln('20 случайных чисел:'); //выводим на экран сообщение
randomize; //запускам рандом
for i:=1 to 20 do begin //запускаем цикл для массива от 1го до 20го элемента по очереди
mas[i]:=random(5,20); //генерируем число от 5 до 20
if mas[i] mod 2 = 0 then begin //запускам проверку, на четность числа. Если оно делится без остатка на 2
c:=c+1; //то к переменной c прибавляем единицу (значит оно четное
end;
write(mas[i], ' '); //Выводим наш массив
end;
writeln(); //пробел между строк
writeln('Количество четных элементов = ', c); //выводим количество четных элементов
end.
