Задача 2. Дан одномерный массив. Найти сумму четных (по значению) элементов массива

1. Постановка задачи.

Дан одномерный массив. Найти сумму четных (по значению) элементов массива.

2. Математическая модель.

Если a[i] mod 2 = 0 то sum=sum+a[i]

3. Блок-схема

4. Список идентификаторов.

Имя	Смысл	Тип
a	Элементы массива	Integer
n	Кол-во элементов массива	Integer
i	Счетчик	Integer
Sum	Сумма четных элементов	Integer

5. Код программы.

program z2;

{$mode objfpc}{$H+}

uses

{$IFDEF UNIX}{$IFDEF UseCThreads}

cthreads,

{$ENDIF}{$ENDIF}

Classes, Math;

var a:array of integer;

i, n, sum:integer;

begin

writeln ('Введите кол-во эл-тов массива');

readln (n);

writeln ('Введите эл-ты массива');

setlength (a, n);

for i:= 1 to n do

read (a[i]);

for i:= 1 to n do

if a[i] mod 2 = 0 then

sum:= sum + a[i];

writeln (sum);

readln ();

end.

6. Результаты выполнения программы.