Дана матрица У(к, к)

[Silver_Surfer]

Всех с Новым Годом! Помогите, пожалуйста, сделать задачу. Условие такое:
Дана матрица У(к, к). Сформировать вектор, содержащий диагональные элементы матрицы У. Отсортировать его в порядке убывания элементов. Сортировку оформить как функцию (процедуру).

[Stilet]

содержащий диагональные элементы матрицы

Какой из диагоналей то надо?
И кстати покажи код ввода матрицы.

[type_Oleg]

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

... Отсортировать его в порядке убывания элементов. Сортировку оформить как функцию (процедуру).

См. " пузырек ". На форуме этих пузырьков полно напузырили.

Да и главные диагонали тоже часто выделяли.

[Silver_Surfer]

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

И кстати покажи код ввода матрицы.

program pr5;
uses crt;
const n=3;
var a:array[1..n,1..n] of integer;
    i,j:integer;
begin clrscr;
writeln('Введите ',n*n,' элементов матрицы, целые числа:');
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Матрица:');

for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    write(a[i,j]:4);

   end;
  writeln;
 end;
end.

[type_Oleg]

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

.. Сформировать вектор, содержащий диагональные элементы матрицы У. ..

var diag:array[1..n] of integer; 
begin
// ...
 for i:=1 to n do diag[i]:=a[i,i];

если надо главную диаглналь

[Serge_Bliznykov]

Silver_Surfer, нормальный код.
теперь Вам нужно определиться с тем, какая именно диагональ (или даже диагонали) Вам нужна!
В зависимости от этого и будет размерность вашего вектора (читай, одномерного массива), который содержит нужные диагональные элементы.

[Silver_Surfer]

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

теперь Вам нужно определиться с тем, какая именно диагональ (или даже диагонали) Вам нужна!

В задании конкретно не указано диагональ, поэтому пусть будет главная.

[Serge_Bliznykov]

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

В задании конкретно не указано диагональ, поэтому пусть будет главная.

ОК.
см. пост #5. Там написан код как раз для главной диагонали.

сортировку можете написать, например, так:

procedure BubleSortVector;
var i,j : integer;
  tmp : integer;
begin
   for i:=1 to n-1 do
     for j:=i to n do
     begin
       if diag[i]>diag[j] then
        begin
          tmp:=diag[i];
          diag[i]:=diag[j];
          diag[j]:=tmp;
        end;
     end;
end;

[Silver_Surfer]

Serge_Bliznykov, что-то не могу всё собрать к одному целому. Помогите, пожалуйста.

[Serge_Bliznykov]

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

Serge_Bliznykov, что-то не могу всё собрать к одному целому. Помогите, пожалуйста.

ну, так, например:

program pr5;
uses crt;
const n=3;
var
  a:array[1..n,1..n] of integer;
  diag:array[1..n] of integer;
  i,j:integer;
  
procedure BubleSortVector;
var i,j : integer;
  tmp : integer;
begin
   for i:=1 to n-1 do
     for j:=i to n do
     begin
       if diag[i]>diag[j] then
        begin
          tmp:=diag[i];
          diag[i]:=diag[j];
          diag[j]:=tmp;
        end;
     end;
end;
begin
clrscr;
writeln('Введите ',n*n,' элементов матрицы, целые числа:');
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Матрица:');

for i:=1 to n do
 begin
  for j:=1 to n do
    write(a[i,j]:4);
  writeln;
 end;
 
 {заполним массив вектор элементами главной диагонали}
 for i:=1 to n do diag[i]:=a[i,i];
 
 {выведем элементы вектора на экран}
 Write('Вектор: ');
 for i:=1 to n do Write(diag[i],' ');
 WriteLn;
 
 { отсортируем вектор с помощью процедуры BubleSortVector }
 BubleSortVector;

 {выведем элементы вектора на экран}
 Write('Вектор после сортировки: ');
 for i:=1 to n do Write(diag[i],' ');
 WriteLn;


end.