Вычислить количество четных элементов ниже главной диагонали. Помогите

Question

Информатика

Тимоша

9 августа, 16:24

Вычислить количество четных элементов ниже главной диагонали. Помогите

+4

Ответы (1)

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

Петруша · Answer 1

Var i, j, n, x, kol:int64;

begin

read (n) ;

for i:=1 to n do begin

for j:=1 to n do begin

read (x) ;

if (i>j) and ((x mod 2) = 0) then inc (kol) ;

end;

end;

writeln (kol) ;

end.