Матрицы

[infernal110]

Всем добрый день, у меня возникла проблема,незнаю как написать программу по матрицам,Помогите чем сможете,вот задание:
Для заданной квадратной матрицы сформировать одномерный массив из ее диагональных элементов.Найти след матрицы,сумммируя элементы одномерного массива.Матрицу ввести с клавиатуры
Заранее всем ОГРОМНОЕ СПАСИБО!

[whatever]

Задание по сложности напоминает "Hello world!"

const
  n=5;
type
  matrix=array[1..n,1..n]of integer;
  vector=array[1..n]of integer;
var
  m:matrix;
  v:vector;
  i,j,sum:integer;
begin
  for i:=1 to n do
      for j:=1 to n do
        begin
          write('m[',i,',',j,']:= ');
          readln(m[i,j])
        end;
  writeln;
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(m[i,j],' ');
      writeln;
    end;
  writeln;
  sum:=0;
  for i:=1 to n do
    begin
      v[i]:=m[i,i];
      write(v[i],' ');
      sum:=sum+v[i];
    end;
  writeln;
  writeln('sum= ',sum);
  readln
end.

[infernal110]

если вам не сложно то как в эту программу сделать сортировку матрицы по возрастанию?

[whatever]

http://www.vzmakh.ru/info/pascal/modules/page14.html
http://programmersforum.ru/showpost....81&postcount=1
http://programmersforum.ru/showpost....82&postcount=2
И вообще: http://programmersforum.ru/showthread.php?t=70310