не понятно почему прога закрывается

[Saka]

Программа закрывается сразу после включения проблемы не знаю помогите

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 4;
var
  mas: array of array of byte;
  i, j,k, m: byte;

begin
  setlength(mas,n,n);
  randomize;
  for i := 0 to n-1 do
  begin
    for j := 0 to n-1 do
    begin
      mas[i, j]:= random(10);
      write(mas[i, j]:2)
    end;
    writeln;
  end;
  readln;
  SetLength(mas,n);
  m := mas[2, 1];
  for i := 1 to n do
    for j := 1 to i - 1 do if mas[i, j] > m then m := mas[i, j];
  writeln('Max = ', m);
  readln;
  end.

[Serebro]

Определись: у тебя массив от 0 до n-1 или от 1 до n?

[psycho-coder]

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

Программа закрывается сразу после включения проблемы не знаю помогите

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 4;
var
  mas: array of array of byte;
  i, j,k, m: byte;

begin
  setlength(mas,n,n);
  randomize;
  for i := 0 to n-1 do
  begin
    for j := 0 to n-1 do
    begin
      mas[i, j]:= random(10);
      write(mas[i, j]:2)
    end;
    writeln;
  end;
  readln;
  SetLength(mas,n);
  m := mas[2, 1];
  for i := 1 to n do // Вот тут ошибка нужно 0 to n - 1 do
    for j := 1 to i - 1 do if mas[i, j] > m then m := mas[i, j];
  writeln('Max = ', m);
  readln;
  end.

P.S. Проверь личку

[Alex_FF]

program Project2;

{$APPTYPE CONSOLE}
{$R+} {$Q+} // это никогда не помешает

uses
  SysUtils;

const
  n = 4;
var
  mas: array of array of byte;
  i, j,k, m: byte;

begin
  setlength(mas,n,n);
  randomize;
  for i := 0 to n-1 do
  begin
    for j := 0 to n-1 do
    begin
      mas[i, j]:= random(10);
      write(mas[i, j]:2)
    end;
    writeln;
  end;
  readln;
  SetLength(mas,n);
  m := mas[2, 1];
  for i := 0 to n - 1 do
    for j := 0 to i - 1 do if mas[i, j] > m then m := mas[i, j];
  writeln('Max = ', m);
  ReadLn;
  ReadLn;
  end.

[psycho-coder]

А зачем ДВА ReadLn? При трассировке, все ReadLn пролетают ))

[Saka]

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

[Serebro]

тогда

  for i := 1 to n - 1 do
    for j := 0 to i - 1 do if mas[i, j] > m then m := mas[i, j];
  writeln('Max = ', m);

[Alex_FF]

вот это работает

{$APPTYPE CONSOLE}

{$R+} {$Q+}

uses
SysUtils;

const
  N = 4;
var
  mas: Array of Array of Byte;
  I, J, M: Byte;

begin
  SetLength(mas, N, N);
  Randomize;
  for I := 0 to N - 1 do
  begin
    for J := 0 to N - 1 do
    begin
      mas[I, J]:= Random(10);
      Write(mas[I, J]:2)
    end;
    WriteLn;
  end;
  M := mas[1, 0];
  for I := 1 to N - 1 do
    for J := 0 to I - 1 do
      if mas[I, J] > M then M := mas[I, J];
  WriteLn('Max = ', M);
  ReadLn;
  ReadLn;
end.

[Saka]

Спасибо, но можно в коде еще учитывать сами элементы главной диагонали. и еще вопрос:что это значит

{$I+} {$R+} {$Q+}

[Alex_FF]

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

Спасибо, но можно в коде еще учитывать сами элементы главной диагонали. и еще вопрос:что это значит

{$I+} {$R+} {$Q+}

тогда напиши

  M := mas[0, 0];
  for I := 0 to N - 1 do
    for J := 0 to I do
      if mas[I, J] > M then M := mas[I, J];