В массиве подсчитать: сумму чётных элементов. (Элементов массива: 7. Массив вводится с клавиатуры)

Question

Информатика

Кузяша

26 марта, 20:51

В массиве подсчитать: сумму чётных элементов. (Элементов массива: 7. Массив вводится с клавиатуры)

+2

Ответы (1)

Знаете ответ на вопрос?

Севастьяна · Answer 1

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.