Дан массив из 10-ти элементов. 23, 345, 47, 225, 15, 786, 650, 32, 9, 110. Написать...

Question

Дан массив из 10-ти элементов.
23, 345, 47, 225, 15, 786, 650, 32, 9, 110.
Написать программу, которая находит и выводит на печать сумму четных чисел.
Ответ:
786+650+32+110=1578.

Answer 1

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 (' + ');<br>if i=9 then write (' = ')
end;
write (s)
end.