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

Question

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

Comments

паскаль??

---

да

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.