паскаль!дана квадратная матрица порядка n.

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

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

[__STDC__]

в чем проблема? главная диагональ это когда индексы равны (a[i,i]), побочная - когда индексы такие - (a[i,n-i+1])

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

если не сложно напишите пожалуйста! я вообще не понимаю....((((((

[__STDC__]

Мне честно надоело писать процедуры fill_matrix и out_matrix... пишите сами... поищите по форуму и скопируйте... максимум найти просто..

var
   max:integer;
   ...
begin
   ...
   max := X[1,1];
   for i:=1 to n do begin
      if (X[i,i] > max) then
         max := X[i,i];
      if (X[i,n-i+1] > max) then
         max := X[i,n-i+1];
   end;
   ...
end.

Как-нибудь так...

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

кто нить может полную программу написать?