Упорядочить главную диагональ матрицы по возрастанию - Turbo Pascal

Формулировка задачи:

подскажите как упорядочить главную диагональ по возрастанию. Массив готов.
 program v7;
    uses crt;
      const n=100;
    var d : array[1..8,1..8] of integer;
  i,j,l: integer;
  f:text;
 
 begin
  randomize;   
  clrscr;
   writeln(' файл input.dat создан ');   {создание файла}
  for i:=1 to 8 do
    begin
    for j:=1 to 8 do
       begin
       d[i,j]:=random(19);
       d[i,j]:=d[i,j];
       write(d[i,j]:5);
       end;
       writeln;
  end;
  assign (f,'input.dat');
rewrite(f);
for i:=1 to 8 do
begin
for j:=1 to 8 do
write(f,d[i,j]:5);
writeln(f);
end;
 
close(f);
 
     end.
Добавлено через 23 часа 46 минут [QUOTE=andrey-m11;4623001]подскажите как упорядочить главную диагональ по возрастанию. Массив готов. усё сделал сам уже... получилось...

Код к задаче: «Упорядочить главную диагональ матрицы по возрастанию - Turbo Pascal»

textual
for i:=1 to 7 do
   for j:=i+1 to 8 do
    if (d[i,i]>d[j,j]) then
     begin
        temp:=d[i,i];
        d[i,i]:=d[j,j];
        d[j,j]:=temp;
     end;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 3.556 из 5


СДЕЛАЙТЕ РЕПОСТ