Дан массив из 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;beginwriteln (a);writeln ('Ответ: ');for i:=0 to 9 doif a[i] mod 2 = 0 thenbeginwrite (a[i]);s:=s+a[i];if i<9 then write (' + ');if i=9 then write (' = ')end;write (s)end.