заполнить массив из 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