Найдите среднее арифметическое всех четных элементов массива - Turbo Pascal

Формулировка задачи:

Задан массив из 10 целых чисел. Найдите среднее арифметическое всех четных элементов массива. Хелп плиз

Решение задачи: «Найдите среднее арифметическое всех четных элементов массива»

Листинг программы

Var
  x: Array[1..10] of Integer;
  i,k: Integer;
  s: Longint;
BEGIN
Writeln('Введите массив:');
For i:=1 to 10 do
begin
  Readln(x[i]);
  If x[i] mod 2=0 Then
  begin
    s:=s+x[i];
    k:=k+1;
  end;
end;
Writeln('Среднее арифметическое четных = ',s/k:5:2);
Readln
END.

Объяснение кода листинга программы

Создается переменная x типа Array[1..10] of Integer, которая будет хранить массив целых чисел.
Затем объявляются три переменные i, k и s типа Integer, которые будут использоваться для итерации по массиву и подсчета суммы четных элементов.
Строка Writeln('Введите массив:'); выводит сообщение с просьбой ввести массив.
В цикле for с i от 1 до 10 происходит чтение каждого элемента массива x[i] и проверка, является ли он четным (x[i] mod 2=0).
Если элемент четный, то к переменной s прибавляется его значение, а к переменной k прибавляется единица.
После завершения цикла for выводится среднее арифметическое четных элементов массива, используя формулу s/k.
Вызывается функция Readln(), чтобы пользователь мог ввести следующий командный блок.