Вот держи. 
| Код |
const n=7;
var a:array [1..n,1..n] of integer; {наш массив}
i,j,m:word;
begin
randomize; {Забиваем массив мусором}
m:=0;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(101);
{-------------}
for i:=trunc(n/2)+n mod 2 to n do {собственно сама проверка}
for j:=1 to trunc(n/2)+n mod 2 do
if m<a[i,j] then m:=a[i,j];
for i:=trunc(n/2)+n mod 2 to n do
for j:=1 to trunc(n/2)+n mod 2 do
if m<a[j,i] then m:=a[i,j];
writeln(m);
{------------------}
for i:=1 to n do {выводим саму матрицу и проверям}
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
readln;
end.
|
ЗЫ. Если ОНО, то насчет сайтов - стучил в ПМ.  |
