Задание:
В массиве подсчитать: сумму четных элементов. (Элементов массива: 7. Массив вводится склавиатуры)
Решение:
Var aa[1… 7]: array of integer; i, s: integer; begin for i: =1 to 7 do read (aa[i]); s: =0; for i: =1 to 7 do if aa[i] mod 2=0 then s: =s+aa[i]; writeln (s); end.
Знаете другой ответ?