сортировка матрицы нахождение среднеарифметического и замена элемента все в одной задаче

[Temarustver]

Дана матрица NxM. Найти среднее арифметические из каждой строки матрицы и поместить значение среднего арифметического на место наименьшего элемента в этой строке с указанеем его индексом. Создать линейный массив из найденных средних арефметических и отсортировать этот массив по убыванию.

[VIK_aka_TOR]

выкладываем наработки... или деньги...

[Temarustver]

uses crt;
Var
arifmet : integer;
min,i_min,index_b : integer;
B : array [1..100] of integer;
i,j,i_tmp,tmp,n,m : integer;
index_i,index_j : integer;
A : Array[1..100,1..100] of integer;
Begin
clrscr;
Writeln('Введите размерность массива MxN');
Write('n = '); Read(n);
Write('m = '); Read(m);
Writeln('');
writeln('Входной массив');
Write('A[');
for i := 1 to n do
for j := 1 to m do begin
gotoxy(j*4,i+5);
read(a[i,j]);
tmp := tmp + A[i,j];
if (j = m-1) then begin
arifmet := trunc(tmp / m);
tmp := 0;
B[i] := arifmet;
min:= A[i,j];
for i_tmp:=1 to m-1 do
if A[i,i_tmp] < min then
A[i,i_tmp] := arifmet;
end;
end;
Writeln(' ];');
Writeln('');
for i:=1 to n-1 do
for j:=i+1 to n do
if (b[j] > b[i]) then
begin
tmp:=b[i];
b[i]:=b[j];
b[j]:=tmp;
end;
writeln('');
writeln('Выходной массив');
write('B[ ');
for i:=1 to n do
if i <> n then
write(B[i]+'['+inttostr(i)+']',', ')
else
write(B[i] +'['+inttostr(i)+']',' ');
write(']');
writeln('');
writeln('');
End.

[VIK_aka_TOR]

uses crt;
var
min,sr_ar : real; // среднеарифметическое дожно быть вещественным
b : array [1..100] of real; // также как и матрица для среднеарифм
a: array [1..100,1..100] of real; // матрица со значениями в виду того что вставятся срарифм так же вещественная
m,n,i, j, j_min : integer;
begin
  clrscr;
  randomize;
  m := 4;
  n := 6;
  // заполняем массив, тут рандомом...
  for i := 1 to n do
  begin
    for j := 1 to m do
      begin
        a[i,j] := random(20) + 1;
        write(a[i,j]:5:1);
      end;
    writeln;  
  end;
  // находим наименьший элемент и строим вторую матрицу из среднеарифм
  for i:=1 to n do
    begin
    min := a[i,1];
    j_min := j;
    sr_ar := 0;
      for j := 1 to m do
      begin
        if min > a[i,j] then
          begin
            min := a[i,j];
            j_min := j;
          end;
        sr_ar := sr_ar + a[i,j];  
      end;
    b[i] := sr_ar / m ;
    a[i,j_min] := b[i];
    end;
    writeln;
  // вывод результатов
 writeln('новая матрица А');
 for i:= 1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:5:1);
      writeln;  
    end;
    writeln;
    writeln('матрица b');
  for i:=1 to n do
    writeln('b[',i,']=', b[i]);
end.

позабавлявшись с форматом вывода достигнете нужной точности... в вашем коде не особо хотелось разбираться... так как не оформили должным образом( через #)... вот вам такой код.... селаете коль нужно ввод ручной... и вывод по своему усмотрению...