Дан массив из 10-ти элементов.

23, 345, 47, 225, 15, 786, 650, 32, 9, 110.

Написать программу, которая находит и выводит на печать сумму четных чисел.

Ответ:

786+650+32+110=1578.

Var a:array of integer : = (23, 345, 47, 225, 15, 786, 650, 32, 9, 110) ;

i, s:integer;

begin

writeln (a) ;

writeln ('Ответ: ') ;

for i:=0 to 9 do

if a[i] mod 2 = 0 then

begin

write (a[i]) ;

s:=s+a[i];

if i<9 then write (' + ') ;

if i=9 then write (' = ')

end;

write (s)

end.