матрица

[Poma][a]

Мда..

1) Код на форуме оформляется специальным тегом (кнопочка с #)
2) Очень сложно сохранить картинку и залить её сюда?
3)

for i:=1 to m do
begin
for j:=1 to n do
begin

Обычно 1-ый цикл до N, 2-ой цикл до M.
4)

begin
a[i,j]:=random(20);
write(a[i,j]:4);
end;
writeln;
end;
writeln;

Последний WriteLn наигран

Теперь по существу :
1)

a[i,j]:=random(20);

противоречит условию, что

матрицу и ее размерность должен задать пользователь

2) Складывается ощущение что Вы скопипастили чужой код похожей задачи. (заюзал поиск.. и надо же! мои догадки подтвердились)

Исходя из пункта №2, мне расхотелось Вам помогать..

[Тамерлан Абилов]

когда в цикле все проверяешь.просто дай ещё условие если

i<>j

.думаю тоже самое что и найти макс элемент но добавив это условие туда получается ваше решение

[Razdolbai]

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
    mx:integer;
begin
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
    if(i=1)and(j=2)then mx:=a[i,j]
    else if(j<>i)and(a[i,j]>mx) then mx:=a[i,j];
   end;
  writeln;
 end;
writeln('Максимум матрицы без главно диагонали=',mx);
end.

да так и сделал))

[Golden_RUS]

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,max:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
for i:= 1 to n do
for j:=1 to n do
max:= a[1, 2];
for i:=1 to n do
for j:=1 to n do
if i <> j then
if a[i,j] > max then
max:= a[i,j];
writeln('Max:', max); 
readln
end.

За основу взял твой код.
ps Задачка школьная?

[Poma][a]

for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;

Согласно заданию, исходная матрица должна быть введена!

for i:= 1 to n do
for j:=1 to n do
max:= a[1, 2];

Что это? зачем нам N^2 рза присваивать одной переменной одно и тоже значение?
И почему именно a[1, 2]? Что мешаем мне задать матрицу 1 на 1?

И еще :
Вы используете N и M, потом же Вы выбрасываете M и используете только N, в чем смысл?

[Golden_RUS]

Согласно заданию, исходная матрица должна быть введена!

Меняем random на readln

Что это? зачем нам N^2 рза присваивать одной переменной одно и тоже значение?
И почему именно a[1, 2]? Что мешаем мне задать матрицу 1 на 1?

Потому что a[1,1] элемент главной диагонали,а первой элемент вне главной это именно 1,2

Вы используете N и M, потом же Вы выбрасываете M и используете только N, в чем смысл?

Я же написал,то что использовал его код с 1 страницы,а m n не заметил так как писал ночью.

Вы

можно на ты.

[Poma][a]

Меняем random на readln

Лучше на Read и убираем Randomize

Потому что a[1,1] элемент главной диагонали,а первой элемент вне главной это именно 1,2

Ага. Это я упустил из виду.. Но, наверное, лучше всё-таки не инициализировать так.. (Например N = 1 M = 10) а делать просто max := - MaxInt (и вовсе необязательно делать это в цикле)

Я же написал,то что использовал его код с 1 страницы,а m n не заметил так как писал ночью.

Не-не-не. К Вам претензий нет. Я лишь указал на ошибки (недочеты)

можно на ты

Хорошо