В массиве подсчитать:сумму чётных элементов. (Элементов массива:7. Массив вводится с клавиатуры)
В массиве подсчитать:сумму чётных элементов. (Элементов массива: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.
Не нашли ответ?
Похожие вопросы