Нужно доработь прогу паскаль матрицы

[Nubik]

cоnst=10;
type matr=array[0..n,0..n] of integer;
для матрицы создать следующую функцию:
Max(A:matrix): integer; определяющую максимальный элемент матрицы в заштрихованной области(Где квадратики)

[][][][][][][][][][]
[] -------------[]
[] -------------[]
[] -------------[]
[] -------------[]
[] -------------[]
[] -------------[]
[] -------------[]
[][][][][][][][][][]

Програ считает тока среди положительных чисел нужно сделать так чтоб среди отрицательных тоже.

{ uses crt;
cоnst
n=10;
Type
Matr=array[0..n,0..n] of Integer;
Var
x:Matr;
i,j :Integer;
Function Max(A:Matr):Integer;
var
m :Integer;
Begin
max:=A[0,0];
For i:=0 to n do begin
If A[0,i]>m then m:=a[0,i];
If A[n,i]>m then m:=a[n,i];
If A[i,0]>m then m:=a[i,0];
If A[i,n]>m then m:=a[i,n];
end;
Max:=m
End;
BEGIN
randomize;
For i:=0 to n do begin
for j:=0 to n do begin
x[i,j]:=Random(198)-99;
Write(x[i,j]:4)
end;
WriteLn;
end;
WriteLn('макс эл. указанной области' = ',Max(x):2);
ReadLn
END.}

[Serious]

просто проходим по области начиная от
max:=a[2,2];
for i:=2 to n do
for j:=2 to n do
if max>=matr[i,j] then
max:=a[i,j];

где n это на 1 меньше, чем длинна матрицы.
и туда берём вбиваем
ну вот и весь поиск, он должен быть на любые числа.
я примерно набросал. но должно работать, я просто не читал названия переменных

[Nubik]

Сообщение от Serious

просто проходим по области начиная от
max:=a[2,2];
for i:=2 to n do
for j:=2 to n do
if max>=matr[i,j] then
max:=a[i,j];

где n это на 1 меньше, чем длинна матрицы.
и туда берём вбиваем
ну вот и весь поиск, он должен быть на любые числа.
я примерно набросал. но должно работать, я просто не читал названия переменных

Нее это ищет не ту зону если я понимаю, мне надо искать где квадратики) смотри внимательно код программы

[Serious]

for i:=1 to n do
if max<= a[i,1] then
max:=matr[i,1];

for i:=1 to n do
if max<= matr[i,n] then
max:=matr[i,n];

for i:=1 to n do
if max<= matr[1,i] then
max:=matr[1,i];

for i:=1 to n do
if max<= a[n,i] then
max:=a[n,i];

да длинно, но должно работать

[Nubik]

спасиб попробую)

[ОДИНОЧЕСТВО В СЕТИ]

Да уж!!!

max:=A[0,0];

исправьте на

m :=a[0,0];

и будет работать с отрицательными ваша программа
вот код

uses crt; 
cоnst 
n=10; 
Type 
Matr=array[0..n,0..n] of Integer; 
Var 
x:Matr; 
i,j :Integer; 
Function Max(A:Matr):Integer; 
var 
m :Integer; 
Begin 
m:=A[0,0]; 
For i:=0 to n do begin 
If A[0,i]>m then m:=a[0,i]; 
If A[n,i]>m then m:=a[n,i]; 
If A[i,0]>m then m:=a[i,0]; 
If A[i,n]>m then m:=a[i,n]; 
end; 
Max:=m 
End; 
BEGIN 
randomize; 
For i:=0 to n do begin 
for j:=0 to n do begin 
x[i,j]:=Random(198)-99; 
Write(x[i,j]:4) 
end; 
WriteLn; 
end; 
WriteLn('макс эл. указанной области' = ',Max(x):2); 
ReadLn 
END.

[Nubik]

Аааа спасибо!!!! а я думал почему не работает))

[Nubik]

Подскажи еще почему она положительные искала?))

[ОДИНОЧЕСТВО В СЕТИ]

Потому что m не была проинициализирована и по умолчанию была равна 0- ну а 0 больше любого отрицательного

[Nubik]

мда программирование сложная штука=)