[Java] Окружения элемента в массиве Опции

[Merhaba]

Утро Доброе!
Помогите Пожалуйста переписать программу с Pascal на Java:

function Min(a,b: integer): integer;
begin
  if a<b then Min:= a else Min:= b
end;

function Max(a,b: integer): integer;
begin
  if a>b then Max:= a else Max:= b
end;


const
  n= 30;
  m= 20;

var
  a: array [1..n,1..m] of integer;
  i,j,k,l,p,q: integer;
  Ok: boolean;

begin
  Randomize;
  for i:=1 to n do for j:=1 to m do a[i,j]:= Random(100);
  for i:=1 to n do begin
    for j:=1 to m do Write(a[i,j]:3);
    WriteLn
  end;

  l:=0;
  for i:=3 to n-2 do for j:=3 to m-2 do begin
    Ok:= true;
    k:= 1;
    for p:= Max(i-k,1) to Min(i+k,n) do
      for q:= Max(j-k,1) to Min(j+k,m) do
        if (Abs(i-p)=k) or (Abs(j-q)=k) then Ok:= Ok and (a[i,j]>a[p,q]);
    k:= 2;
    for p:= Max(i-k,1) to Min(i+k,n) do
      for q:= Max(j-k,1) to Min(j+k,m) do
        if (Abs(i-p)=k) or (Abs(j-q)=k) then Ok:= Ok and (a[i,j]<a[p,q]);
    if Ok then Inc(l)
  end;

  WriteLn('found ',l,' of wanted elements');
  ReadLn
end.

[IUnknown]

В результате, всё равно выводит 0. Хотя тут есть один элемент, удовлетворяющий условию задачи - 10.

Там это... Похоже, Copy+Paste принес свои плоды:

k = 2;
for(int p = Math.max(i-k, 1); p <= Math.min(i+k, n); p++)
	for(int q = Math.max(j-k, 1); q <= Math.min(j+k, m); q++) 
		if( (Math.abs(i-p)==k) || (Math.abs(j-q)==k) ) {
			Ok = (Ok ? (a[i-1][j-1] > a[p-1][q-1]) : Ok); // <--- Вот тут значок поменяй на "Меньше"...
		}

... и все заработает.

Сообщение отредактировано: IUnknown - 26.05.2011 8:31