Дан массив 3 * 3. Найти сумму четных элементов массива.

Question

Информатика

Гедимин

18 декабря, 03:40

Дан массив 3 * 3. Найти сумму четных элементов массива.

+5

Ответы (1)

Знаете ответ?

Артемон · Answer 1

Var a:array[1 ... 3,1 ... 3] of integer;

i, j, s:integer;

begin

for i:=1 to 3 do

for j:=1 to 3 do begin

read (a[i, j]) ;

if not odd (a[i, j]) then s+=a[i, j];

end;

writeln (s) ;

end.