[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);