Вычислить количество четных элементов ниже главной диагонали. Помогите
Вычислить количество четных элементов ниже главной диагонали. Помогите
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы