Программа генерирует 10 целых чисел в диапазоне от 0 до 20. Посчитать, сколько из них...

Question

Программа генерирует 10 целых чисел в диапазоне от 0 до
20. Посчитать, сколько из них четных.
Программа на языке Pascal ABC!
Помогите пожалуйста! Буду очень признателен!

Answer 1

Var i,k:integer;
    a:array[1..10] of integer;
begin
 for i:=1 to 10 do
 begin
  a[i]:=random(20);
  if a[i] mod 2 = 0 then k:=k+1;
 end;
 writeln(k);
end.