Вычислить количество четных элементов ниже главной диагонали. Помогите
Answers & Comments
vladrus113
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.
Answers & Comments
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.