Двумерный масив (ПРАКТИКА)

[Mr0max]

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

нарисован квадрат,поделян пополам. одна часть заштрихована.
сори просто фото не могу выложить.

Error 22: Structure too large
Ошибку пишет,не запускается. В чём проблема?

uses crt;
type
mas = array[1..200,1..200] of integer;
var
A:mas;
i,j,n,m,max:integer;
begin clrscr;
m:=1;
write('Введите N: '); readln(n);
For i:=1 to n do begin
  for j:=1 to n do begin
   A[i,j]:=m; inc(m);
   write(A[i,j]:4);
   end;
   writeln;
   end;
   max:=a[1,1];
writeln;
for i:=1 to n do
for j:=i to n do
if a[i,j]>max then max:=a[i,j];
      writeln('Максимальный элемент: ',max);
end.

[VKorablev]

простите, а какую IDE и компилятор вы используете? я ввел ваш код в Pascal.Abc.net, программа запустилась, не знаю правильно ли вы реализовали задачу, но прога компилилась без ошибок

[Mr0max]

А как его перевести на turbo pascal?

[Indian]

array[1..200,1..200] of integer;
Error 22: Structure too large

Похоже, это DOS. Сегмент данных - 64КБ. Массив на 200*200*2 = 80КБ.
Тут два варианта:
1. Уменьшить массив, чтобы он уместился в 64КБ.
2. Использовать динамическую память.

[Mr0max]

А как использовать динамическую память?

[Mr0max]

Уменьшил матрицу 64*64 тогда просто я ввожу N и всё программа выключается. в чём проблема? подскажите пожалуйст

[VKorablev]

Вот так

[Indian]

ввожу N и всё программа выключается

Чтобы посмотреть вывод - Alt-F5.

[VKorablev]

или предпоследней строчкой в программе написать

readkey;

и запускать по Ctrl+F9 и прога будет жать любую нажатую клавишу

[New man]

uses crt;
type
mas = ^array[1..200,1..200] of integer;
var
A:mas;
i,j,n,m,max:integer;
begin clrscr;
m:=1;
write('Введите N: '); readln(n);
new(A);
For i:=1 to n do begin
  for j:=1 to n do begin
   A^[i,j]:=m; inc(m);
   write(A^[i,j]:4);
   end;
   writeln;
   end;
   max:=a^[1,1];
writeln;
for i:=1 to n do
for j:=i to n do
if a^[i,j]>max then max:=a^[i,j];
      writeln('Максимальный элемент: ',max);
dispose(a);
end.