Question

Напиши программу для создания массива а из десяти целых чисел, элементы которого вводятся с клавиатуры. В программе подсчитать s — сумму чётных элементов массива.

Answer 1

program sum_chet_el;

const n=10;

var

i,sum:integer;

a:array[1..n] of integer;

begin

for i:=1 to n do begin

read(a[i]);

if (a[i] mod 2 = 0) then

sum:=sum+a[i];

end;

write(sum);

end.