1. Пользуйтесь тегами кода. - [code] ... [/code] 2. Точно указывайте язык, название и версию компилятора (интерпретатора). 3. Название темы должно быть информативным. В описании темы указываем язык!!!
Утро Доброе! Помогите Пожалуйста переписать программу с Pascal на Java:
function Min(a,b: integer): integer;
beginif a<b then Min:= a else Min:= b
end;
function Max(a,b: integer): integer;
beginif 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:=1to n dofor j:=1to m do a[i,j]:= Random(100);
for i:=1to n dobeginfor j:=1to m do Write(a[i,j]:3);
WriteLn
end;
l:=0;
for i:=3to n-2dofor j:=3to m-2dobegin
Ok:= true;
k:= 1;
for p:= Max(i-k,1) to Min(i+k,n) dofor q:= Max(j-k,1) to Min(j+k,m) doif (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) dofor q:= Max(j-k,1) to Min(j+k,m) doif (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.