Не выводит результат

[Otar4ik]

Изменил и сделал ввод с клавиатуры и на выходе(на рисунке ниже выдаёт некорректный результат)

program var3_20;
uses crt;
type
   mas = array[1..10, 1..10] of integer;

var
   a: mas;
   i, j, key, k,m,n: integer;

begin
   writeln('1 - Вывести количество строк, элементы которых монотонно возрастают');
   writeln('2 - Вывести количество столбцов, элементы которых монотонно убывают');
   readln(key);
  writeln('Введите числа M  и N ');
   read(m); 
   readln(n);
   writeln('Введите по ', n, ' элементов (значения от 0 до 100) ');
   for i := 1 to m do 
   begin
      write(i, ' строки : ');
      for j := 1 to n do 
         read(a[i, j]);
   end;  
   case key of
      1:     
         begin
            writeln('Результат программы:');
            for i := 1 to n do
            begin
               k := 1;
               for j := 2 to m do
                  if(a [i, j] > a[i, j - 1]) then
                     inc(k);
               if(k = m) then
                  write(a[i]:4);
            end;
            for i := 1 to n do
            begin
              for j := 1 to n do
                  write(a[j]:5);
               writeln;
            end;
         end;
      2:         
         begin
            writeln('Результат программы:');
            k := 1;
            for j := 1 to m do
               for i := 2 to n do
               begin
                  if(a [i, j] < a[i - 1, j]) then
                     inc(k);
               end;
            if(k = n) then 
            begin
               for i := 1 to n do
               begin
                  for j := 1 to n do
                     writeln(a[i, j]:4);
               end;             
            end;
         end;
   end;
end.

[GreenWizard]

1:
         begin
            writeln('Результат программы:');
            for i := 1 to n do
            begin
               k := 1;
               for j := 2 to m do
                  if(a [i, j] > a[i, j - 1]) then
                     inc(k);
               if(k = m) then
                  write(a[i, j]:4);
            end;
            for i := 1 to n do
            begin
              for j := 1 to n do
                  write(a[i, j]:5);
               writeln;
            end;
         end;

пробуй, ты пропустил индексы (а я мог их местами попутать )

[Otar4ik]

Заработало но строки неправильно считает...он просто их количество выводит вместо условия,что можно исправить чтобы по условию работало

[Krasiosoft]

type
   mas = array[1..10, 1..10] of integer;

var
   a: mas;
   i, j, key, k,m,n, count: integer;

begin
   writeln('1 - Вывести количество строк, элементы которых монотонно возрастают');
   writeln('2 - Вывести количество столбцов, элементы которых монотонно убывают');
   readln(key);
   writeln('Введите количество строк (M) и столбцов (N) через пробел: ');
   read(m);
   readln(n);
   writeln('Введите по ', n, ' элементов для каждой строки через пробел (значения от 0 до 100) ');
   for i := 1 to m do
   begin
      write('Введите элементы ',i,' строки: ');
      for j := 1 to n do
         read(a[i, j]);
   end;
   readln;
   count:=0;
   case key of
      1:
        begin
            for i := 1 to m do
            begin
               k := 1;
               for j := 2 to n do
                  if(a [i, j] > a[i, j - 1]) then
                     inc(k);
               if(k = n) then
                  inc(count);
            end;
         end;
      2:
         begin
            for i := 1 to n do
            begin
               k := 1;
               for j := 2 to m do
                  if(a [j, i] < a[j - 1, i]) then
                     inc(k);
               if(k = m) then
                  inc(count);
            end;
         end;
   end;
   writeln('Результат программы: ', count);
   readln;
end.

Вроде должно работать правильно.

[Otar4ik]

Спасибо,заработало