[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]

Код:

import java.util.Random;

public class Matrix02 {
	public static void main(String[] args) {
		int n = 30;
		int m = 20;
		int [][] a = new int[n][m];
		
		Random rnd = new Random ();
		
		for (int i = 0; i < n; i++) {
			for (int j = 0; j < m; j++) {
				a[i][j] = rnd.nextInt(100);
				System.out.print(" " + a[i][j]);
			} // for j
			System.out.println();
		} // for i


		System.out.println("found 0 of wanted elements");
	}      
}

по функционалу аналогичен твоему. Точно так же выводит случайную матрицу, и точно так же на всех прогонах (а я гонял паскалевскую программу раз 50 наверное, если не больше... Результат всегда одинаковый) - возвращает 0.

Сообщение отредактировано: IUnknown - 20.05.2011 12:42

[Lapp]

Код:

 ... 
System.out.println("found 0 of wanted elements");
...

по функционалу аналогичен твоему. Точно так же выводит случайную матрицу, и точно так же на всех прогонах (а я гонял паскалевскую программу раз 50 наверное, если не больше... Результат всегда одинаковый) - возвращает 0.

))