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

[LeeHan]

Дана целочисленная матрица A(M,N). Составить вектор из номеров строк, где десятичная запись каждого элемента этих строк - есть строго возрастающая или строго убывающая последовательность цифр ( и можете указать ,что значит каждая команда)

[Arigato]

LeeHan, Arinaeros, Esmadjin, похоже вся группа лентяев здесь собралась...

[LeeHan]

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

LeeHan, Arinaeros, Esmadjin, похоже вся группа лентяев здесь собралась...

Arigato, а ты видимо любишь острить )) а не мало ли у тебя инфы, чтобы назвать нас лентяями ? Есть такое понятие как "зачётная неделя"
когда ты просто реально не успеваешь , и быстрее будет так ))

[digitalis]

Ну это новое понятие "зачётная неделя". В моё студенческое время было понятие "семестр", а уж потом "сессия" .

[LeeHan]

digitalis, такое тоже есть, но чуть позже))

[Arigato]

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

а ты видимо любишь острить

Ну это хорошо, что вы неострые

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

а не мало ли у тебя инфы, чтобы назвать нас лентяями ? Есть такое понятие как "зачётная неделя"

А разве это не лентяйство, если человек только на зачетной неделе начинает шевелиться? До зачетной недели сколько задач решили самостоятельно?

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

когда ты просто реально не успеваешь , и быстрее будет так

Быстрее не будет. Если хочется быстрее, то на форуме есть раздел Фриланс.

[digitalis]

Что-то Неверов не реагирует, он любит лентяям задачки решать за так ... Наверное, АБеЦе - не его.

[LeeHan]

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

Ну это хорошо, что вы неострые


А разве это не лентяйство, если человек только на зачетной неделе начинает шевелиться? До зачетной недели сколько задач решили самостоятельно?


Быстрее не будет. Если хочется быстрее, то на форуме есть раздел Фриланс.

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.

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

[LeeHan]

macomics, спасибо большое