Паскаль. Двумерные массивы с сортировкой.

[2mbler]

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

Пытался сделать сам, не получилось(

[p51x]

и что? незнаете, что такое среднее арифметическое? или как искать минимум в массиве?

[2mbler]

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

[2mbler]

program matrix;
uses crt;
var a:array [1..10, 1..10] of integer;
s:array [1..10] of integer;
i,j,r,k,d,b,c,min,t:integer;
begin
clrscr;
write('Введите количество строк'); read(n);
write('Введите количество столбцов'); readln(m)
writeln ('Введите матрицу:');
for i:=1 to n do
for j:=1 to m do 
     begin
     gotoxy (j*5+10,i+5);
     readln (a[i,j]); 
     end;
for i:=1 to n do 
     begin
     for j:=1 to m do 
     begin
     k:=k+a[i,j];
     end;
     c:=k div n;
     min:=c;
     s[i]:=c;
     k:=0;

{if s[i]<s[i+1] then begin
t:=s[i];
s[i]:=s[i+1];
s[i+1]:=t;}

gotoxy (i*1, j*4+20);
writeln (s[i]:5:0);
end;

{ end;}

for i:=1 to n do
for j:=1 to m do begin
if min=a[i,j] then b:=i;
if min=a[i,j] then d:=j;

{writeln ('Koordinaty', i,'-go minimuma', b, d);}

end;
readkey;

end.

[2mbler]

Если не открывать фигурные скобки, то программа только считает в каждой строчке среднее арифметическое.
если добавить минимум и открыть последнюю строчку с фигурными скобками, то скорей всего будут выводиться координаты минимума

[2mbler]

ну не понимаю я как это сделать

[Serge_Bliznykov]

1) Вы выложили какой-то промежуточный вариант.
он даже не компилируется (т.к. нет, например, переменных n и m

2) среднее вы находите неправильно. Делить нужно на число столбцов, а не число строк.

3) почему не сделать массив со средними значениями вещественным? (ведь логично, что среднее значение в строке может получится не целым!)

4) что собственно Вы не понимаете, как сделать?!

айти среднее арифметическое каждой строки и поменять его с минимальным значением каждой строки

эту фразу я лично расцениваю так - найти среднее арифметическое значение элементов строки и ЗАПИСАТЬ ЕГО ВМЕСТО миниального значения в данной строке...




а вот примерное решение (как я его вижу...):

program matrix;
uses crt;
var a : array [1..10, 1..10] of integer;
    s : array [1..10] of real;
    t : real;
    n,m : integer;
    i,j,k,MinIndex : integer;
begin
clrscr;
write('Введите количество строк'); read(n);
write('Введите количество столбцов'); readln(m);
writeln ('Введите матрицу:');

{ввод матрицы}
for i:=1 to n do
for j:=1 to m do 
     begin
       //////////// ТУТ ВВОД МАТРИЦЫ ЛЮБЫМ СПОСОБОМ /////////////////
     end;

{вывод матрицы на экран}
WriteLn('исходная матрица:');
for i:=1 to n do begin
  for j:=1 to m do Write(a[i,j]:4,' ');
  WriteLn;
end;

{найти средние и минимальные значения по каждой строке}
  for i:=1 to n do
  begin
    k := 0;
    MinIndex := 1;
    for j:=1 to m do 
      begin
        k:=k+a[i,j];
        if a[i,j]<a[i,MinIndex] then MinIndex := j;
      end;

    {среднее значение строки сохраняем в массив S}
    s[i] := k / m;

    {выдадим среднее значение строки, минимальное значение строки и индекс минимального значения}
    WriteLn(i,'-я строка. Сред.ариф.строки =',s[i]:5:3, 
        ' минимальное значение = ',a[i,MinIndex],' индекс ',MinIndex);
    
    {записываем среднее значение на место минимального}
    a[i,MinIndex] := Trunc(Round(s[i]));
   end;


  {сортировка массива средних значений s}
  {сортировка массива методом простых обменов ("пузырька") }
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if s[i] > s[j] then begin
        t := s[i];
        s[i] := s[j];
        s[j] := t;
      end;

  {вывести отсортированный массив средних значений}
  WriteLn('Отсортированный массив:');
  for i:=1 to n do
    Write(s[i]:5:3,'  ');
  WriteLn;


readkey;

end.

[2mbler]

Извините, за неясность. Благодарю за решение задачи)