написать код(Delphi)

[Saka]

Задача: Дана действительная квадратная матрица порядка n. Найти наибольшее из значений элементов , расположенных в заштрихованной части матрицы. Заштрихованная часть матрицы - все элементы лежащие под главной диагональю ( нижний треугольник)

[Gerzs]

"главной диагональю" Это какая?

[dr.Chas]

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

Задача: Дана действительная квадратная матрица порядка n. Найти наибольшее из значений элементов , расположенных в заштрихованной части матрицы. Заштрихованная часть матрицы - все элементы лежащие под главной диагональю ( нижний треугольник)

Ну а что у вас не получается то или надо решить за вас?

[Saka]

главная диагональ: а0, а5, а10, а15
Нужно: найти наибольший элемент из тех, что расположены под этой диагональю

[Saka]

Сообщение от dr.Chas

Ну а что у вас не получается то или надо решить за вас?

я не могу описать эту заштрихованную часть. помогите пожалуйста.

[eoln]

Эта часть описывается так:

  for i := 1 to n do
  for j := 1 to i - 1 do ...

Вот небольшой пример

const
  n = 5;
var
  mas: array[1..n, 1..n] of byte;
  i, j, k, m: byte;
begin
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      mas[i, j] := random(10);
      write(mas[i, j]:2)
    end;
    writeln
  end;
  for i := 1 to n do
  for j := 1 to i - 1 do write(mas[i, j]:2); //выводит заштрихованную часть на экран
  readln
end.

[Saka]

А как сформировать условие проверки заштрихованной области через "if"?
if (i>=j)and(i<=(n-j+1))or
(i<=j)and(i>=(n-j+1))then
Так?

[Saka]

ап. помогите с кодом плз

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

ппц! вам же все уже разжевали донельзя!
самому трудно было так сделать

max:=-99999;
for i:=1 to n do
for j:=1 to n do
if (i>j) and (a[i,j]>max) then max:=a[i,j];

[Saka]

Пожалуйста совместите мне все в код, ну не понимаю я и все тут. и так бился неделю, сделайте доброе дело)