Вычислить среднее арифметическое каждого столбца матрицы и вывести на экран в порядке возрастания

[ILMAR95]

Дана матрица B:array[1..5,1..10] of integer;
Матрица заполняется рандомом.
Вычислить среднее арифметическое каждого столбца матрицы и вывести на экран в порядке возрастания.


______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
В последующем, темы с названием наподобие "Задача", "Решить", "Вычислить" будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[Акоб]

А в чем проблема?

[Lem-ON]

Вот так у мя полуилось:

procedure sort (var c : array of Integer; n : Integer);

var
a :array [1..5,1..10] of integer;
b :array [1..10] of integer;
i,j,sr: integer;

Тут использовал пузырька:

procedure sort (var c : array of Integer; n : Integer);
var
  i : Integer; 
  Temp : Integer; 
  Flag : Boolean;

begin
  repeat
    Flag := False;
    for i := 0 to n - 1 do
      if c [i] > c [i + 1] then begin
        Temp := c [i];
        c [i] := c [i + 1];
        c [i + 1] := Temp;
        Flag := True; 
      end; 
  until Flag = False; 
end;

Сам код
begin
Randomize;
for i:=1 to 5 do
  begin
    for j:=1 to 10 do
      begin
        a[i,j]:=random(100)-50;
      end;
  end;
for j := 1 to 10 do
  begin
   sr:=0;
   for i:=1 to 5 do
    begin
      sr:=a[i,j]+sr;
    end;
   sr:=sr div 10;
   b[i]:=sr;
  end;
for i := 1 to 10 do
  write(b[i],' ');
sort(b,n);;
for i := 1 to 10 do
  write(b[i],' ');

end;
end.

пожалуйста, пользуйся)

[ILMAR95]

У меня дана матрица 10 на 5. надо посчитать среднее арифметическое столбцов и вывести результат в порядке возрастания