Заполнить массив из 10 элементов случайными целыми числами в интервале [0..100] и определить в нем количество четных элементов паскаль abc, так, если что, на всякий случай) , чтоб было еще с

Const
  n = 10;

var
  x: array[1..n] of integer;
  i, k: integer;

begin
  Randomize; { иниациализация датчика случайных чисел }
  Write('Элементы массива: ');
  k := 0; { обнулили счетчик }
  for i := 1 to n do { цикл для перебора всех элементов }
  begin
    x[i] := Random(101); { очередное случайное число в диапазоне [0;100] }
    if (x[i] mod 2) = 0 then k := k + 1; { если четное, +1 в счетчик}
    Write(x[i]:5)
  end;
  Writeln;
  Writeln('Количество четных чисел в массиве равно ', k)
end.

Тестовое решение:

Элементы массива:    70   19    4   83   79   30   92   97   33   71
Количество четных чисел в массиве равно 4