ДВУХМЕРНЫЕ МАССИВЫ

[Pandemona18]

Цикл с условием

12. 33. Составить программу:
а) которая определяет, является ли последовательность лементов главной диагонали массива упорядоченной по неубыванию (при просмотре от левого верхнего угла массива);
6) которая определяет, является ли последовательность элементов побочной диагонали массива упорядоченной по невозрастанию (при просмотре от правого верхнего угла массива).
В обеих задачах в случае отрицательного ответа должны быть напечатаны координаты первого элемента, нарушающего указанную упорядоченность


заранее благодарю

[hannan]

часть а решается довольно легко:

var mas:array [0..100,0..100] of integer;
       i,j,n,nomer1:integer;
  begin
   ввод массива
    readln(n);
   for i:1 to n do
     for j:=1 to n do 
       readln(mas[i,j]);
    обработка
  for i:1 to n do 
    if mas[i,i]?mas[i+1,i+1] then 
       begin
         nomer1:=i
         break;
       end;
    
  end.

в место ? нужно поставить <,> в зависемости от "упорядоченной по неубыванию"
> если по возрастанию;
< если по убыванию;