паскаль! для зачета!квадратная матрица

[игорек фролоff]

дана квадратная матрица порядка n.Найти наибольший элемент, среди стоящих на главной и побочной диоганалях.

[spamer]

А чем Вас тут не устроил ответ ???
http://programmersforum.ru/showthrea...EE%ED%E0%EB%FC

[игорек фролоff]

че то маленько не получается!кто знает напишите полный код пожалуйста!

[spamer]

program Project1;


var
  mas: array[0..2,0..2] of Integer;
  i,j,max: Integer;
begin
  for i:= 0 to 2 do
    for j:= 0 to 2 do
      readln(mas[i,j]);

writeln('---------------------------');

  for i:= 0 to 2 do
  begin
    for j:= 0 to 2 do
      write(mas[i,j]);
      writeln;
  end;

max:= mas[1,1];
  for i:= 0 to 2 do
  begin
            if (mas[i,i] > max) then
         max := mas[i,i];
      if (mas[i,2-i+1] > max) then
         max := mas[i,2-i+1];
  end;

writeln('---------------------------');
witeln(max);

readln;

end.

P.S. Подкорректируете уже сами что надо.

[Stat_ya]

program pro;
var 
   i,j,max,max1,gl,pob:integer;matr:array[1..4,1..4] of integer;
begin

 for i:=1 to 4 do
 for j:=1 to 4 do
readln(matr[i,j]);


begin
 for i:=1 to 4 do
 for j:=1 to 4 do
 
 
 begin
 if i=j then 
 begin
 max:=matr[i,j];
 if max>matr[i,j] then max:=max
 else max:=matr[i,j];
 gl:=max;
 end;
 end;
 
 
 begin
 begin
 j:=5-i;
 max1:=matr[i,j];
 if max1>matr[i,j] then max1:=max1
 else max1:=matr[i,j];
 pob:=max1;
 end;
 end;
 

 
 if gl>pob then writeln('gl=',gl)else
 writeln('pob=',pob);
 end;
 end.

можно и не брать лишние переменные gl,pob)))
а 5 определяется как размерность массива n+1

[игорек фролоff]

не одна не работает((((((