Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.