Дана целочисленная матрица (m*n). Найти среднее арифметическое в

каждой строке. Значения средних арифметических упорядочить по возрастанию снизу вверх.

Ответы:

Немного не понял, упорядочить по возрастанию снизу вверх.  Если выводить будет не так то в этой строчке изменишь знак на &gt,  if podarr[i] &lt, podarr[i+1] then

program znanija_com,

const

n = 5,

m = 3,

type

  tArray = array[1..n, 1..m] of integer,

  tPodArray = array[1..n] of real,

var

  arr : tArray,

  podarr : tPodArray,

  i,j,sum : integer,

procedure swap(var x,y: real),

  var t: real,

begin

  t := x,

  x := y,

  y := t

end,

begin

randomize,

writeln(Исходная матрица:),

for i:=1 to n do begin

  sum:=0,

  for j:=1 to m do begin

    arr[i, j]:=random(10),

    write(arr[i, j], ),

    sum:=sum+arr[i, j], 

  end,

  writeln(),

  podarr[i]:=sum/m,

end,

for j:=1 to n-1 do

  for i:=1 to n-j do

    if podarr[i] &lt, podarr[i+1] then

      swap(podarr[i],podarr[i+1]),

writeln(Результирующий массив:),

for i:=1 to n do

  writeln(podarr[i], ),

end.