Расположить элементы главной диагонали матрицы в первом столбце, упорядочив их по убыванию - Pascal ABC

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

Помогите пожалуйста решить задачу в Pascal ABC, как можно быстрее. Дана матрица nxn. Расположить элементы главной диагонали матрицы в первом столбце, упорядочив их по убыванию.


textual

Код к задаче: «Расположить элементы главной диагонали матрицы в первом столбце, упорядочив их по убыванию - Pascal ABC»

const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,x:integer;
begin
randomize;
repeat
write('Размер матрицы от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=2 to n do
 begin
  x:=a[i,1];
  a[i,1]:=a[i,i];
  a[i,i]:=x;
 end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i,1]<a[j,1] then
 begin
  x:=a[i,1];
  a[i,1]:=a[j,1];
  a[j,1]:=x;
 end;
writeln('Измененная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end.
Эта работа вам не подошла?

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


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

15   голосов, оценка 3.600 из 5

Источник
Похожие ответы