На Pascal:
var a: array[1..50,1..50] of integer;
i,j,n,max: integer;
begin
Write('Размер матрицы:'); Readln(n);
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.