[GoryachevEugeneS]

Составить программу, которая определяет, является ли последовательность элементов главной диагонали квадратного массива упорядоченной по неубыванию (при просмотре от левого верхнего угла массива). Помогите пожалуйста !

Массив не должен быть случайным, т.е я сам вожу размер и значения.

[Mrak]

Код:

k:=mass[1,1];
for i:=1 to n do // n - размерность массива
  if mass[i,i] < k then message('элементы глав.диагонали не упорядочены по возрастанию')
  else k:=mass[i,i];

[GoryachevEugeneS]

а если они упорядоченны, например главная диагональ 1,2,3...как это вывести?

[Mrak]

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

а если они упорядоченны, например главная диагональ 1,2,3...как это вывести?

Код:

k:=mass[1,1]; 
st:=''; // тип string
for i:=1 to n do // n - размерность массива
  if mass[i,i] < k then 
  begin
    message('элементы глав.диагонали не упорядочены по возрастанию');
    exit; // выход если не упорядочены
  end
  else 
  begin
    k:=mass[i,i];
    st:=st + '  ' + inttostr(k);
  end;
message('элементы глав.диагонали упорядочены по возрастанию. вот они: ' + st);