Cоставить процедуру вычисления суммы четных по значению элементов в одномерном массиве - Turbo Pascal

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

составить процедуру вычисления суммы четных по значению элементов в одномерном массиве

Решение задачи: «Cоставить процедуру вычисления суммы четных по значению элементов в одномерном массиве»

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

procedure SumEven(const a: array of Integer; var s: Integer);
var i: Integer;
begin
  s:=0; for i:=Low(a) to High(a) do if not Odd(a[i]) then s:=s+a[i];
end;
var
  a: array [1..10] of Integer;
  i, s: Integer;
begin
  Randomize;
  for i:=Low(a) to High(a) do a[i]:=Random(100);
  Write('A= '); for i:=Low(a) to High(a) do Write(' ',a[i]); WriteLn;
  SumEven(a,s); WriteLn('Сумма четных: ',s);
end.

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

В начале объявляются переменные a, i и s. Переменная a является массивом целых чисел, переменная i - целочисленной переменной-счетчиком, а переменная s - целочисленной переменной для хранения суммы.
Затем идет описание процедуры SumEven, которая принимает массив a и переменную s в качестве параметров. Внутри процедуры объявляется внутренний счетчик i и начальное значение суммы s устанавливается равным нулю.
Далее начинается цикл for, который проходит по всем элементам массива a от Low(a) до High(a). Если текущий элемент массива не является четным (то есть, если он не равен Odd(a[i])), то значение s увеличивается на текущий элемент массива a[i].
После завершения цикла for значение переменной s будет содержать сумму всех четных элементов массива a.
Затем в основной части программы объявляется массив a типа array [1..10] of Integer и инициализируется случайными числами от 0 до 99 с помощью функции Randomize.
Выводится сообщение с начальным содержимым массива a с помощью функции Write.
Вызывается процедура SumEven с массивом a и переменной s в качестве аргументов. Значение переменной s обновляется с суммой четных элементов массива a.
Наконец, выводится сообщение с результатом вычисления суммы четных элементов массива a с помощью функции WriteLn.