Помогите Пожалуйста перевести с Паскаля на Яву:
OK:=True;
for p:=1 to N do
for q:=1 to M do
if (((p=i-k) or (p=i+k)) and ((q>=j-k) and (q<=j+k))) or (((q=j-k) or (q=j+k)) and ((p>=i-k) and ((p<=i+k)))
then if a[p,q]>a[i,j] then begin
OK:=False; //нашли элемент который больше
exit; //выходим из функции так как смысла нету продолжать цикл
end;
Потом поочередно смотрим все элементы:
for i:=1 to n do
for j:=1 to m do
if Ok(i,j,1) and Ok(i,j,2) then Count:=Count+1;