Матрица A(M,N). Программа на PascalABC

[LeeHan]

macomics, динамический массив не походит Нужно через 2-х мерный массив написать))

[LeeHan]

macomics, тут динамический массив, а мне нужен двухмерный массив

[macomics]

LeeHan, И чем же вам не подходит динамический двухмерный массив? Это не исключающие друг друга характеристики. Если нужны статические двухмерные массивы, тогда просто определите им размеры (статически) большие возможных входных данных. Тогда надо будет убрать 1 команду установки размеров массива. Но добавить две проверки для размерностей, чтобы они не превышали задаваемые вами размеры статических массивов.

[Arigato]

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

И чем же вам не подходит динамический двухмерный массив?

Преподаватель начал задавать неудобные вопросы?

[macomics]

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

Преподаватель начал задавать неудобные вопросы?

Это решается чтением учебника.

[digitalis]

"Ну это уже чересчур!" ©
Сейчас у стьюдентов чтение учебников считается дурным тоном .

[LeeHan]

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

program dvoika;
var
   A: array of array of Currency;
   V: array of Integer;
   i, j, k: Integer;
   f, g: Boolean;
begin
   i := 1;
   repeat
      if i <= 0 then WriteLn('Не верное значение');
      Write('Введите M = ');
      ReadLn(i);
   until i > 0;
   j := 2;
   repeat
      if j <= 1 then WriteLn('Не верное значение');
      Write('Введите N = ');
      ReadLn(j);
   until j > 1;
   SetLength(A, i, j);
   SetLength(V, i);
   for i := Low(A) to High(A) do
      for j := Low(A[i]) to High(A[i]) do begin
         Write('Введите элемент матрицы ', i + 1, ' x ', j + 1, ' = ');
         ReadLn(A[i, j]);
      end;
   k := Low(V);
   for i := Low(A) to High(A) do begin
      f := True;
      g := True;
      for j := Low(A[i]) to High(A[i]) - 1 do begin
         if (A[i, j] <= A[i, j + 1]) then f := False;
         if (A[i, j] >= A[i, j + 1]) then g := False;
      end;
      if f or g then begin
         V[k] := i;
         inc(k);
      end;
   end;
   WriteLn();
   for i := Low(A) to High(A) do begin
      for j := Low(A[i]) to High(A[i]) do
         Write(A[i, j], ' ');
      WriteLn();
   end;
   WriteLn();
   for i := Low(V) to k - 1 do
      Write(V[i], ' ');
   WriteLn();
end.

Объяснить не могу, сам в шоке, что оно работает.

Тут динамический массив, а мне нужен двухмерный массив

[macomics]

Тяжёлый случай...
Ещё раз прочитайте вот это

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

И чем же вам не подходит динамический двухмерный массив? Это не исключающие друг друга характеристики.

[Arigato]

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

мне нужен двухмерный массив

В данном коде есть двумерный массив:

A: array of array of Currency;