Delphi. Квадратная матрица. Задача

[Никитий]

Delphi. Квадратная матрица. Задача

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

Работаем в Delphi

Собственно сама задача:
Дана действительная квадратная матрица порядка N. Найти максимальный элемент среди элементов, расположенных ниже главной диагонали.

 

[Евгений]

На Pascal:

var a: array[1..50,1..50] of integer;
i,j,n,max: integer;
begin
Write('Размер матрицы:'); Readln;
Randomize;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:= Random(100)-40;
Write(a[i,j]:4);
end;
Writeln;
Writeln;
end;
max:=a[2,1];
for i:=3 to n do
for j:=1 to i-1 do
if a[i,j]>max then
max:= a[i,j];
Writeln('Максимальный элемент:',max);
Readln;
end.