Задача паскаль ABC, Помогите пожалуйста решить задачу.Не получается замена минимальных эле Опции

[Vasy 444]

Ввести матрицу A(N,M). Определить значение среднего арифметического Sa всей матрицы. Заменить в каждой строке матрицы минимальный элемент на значение Sa. Матрицу распечатать.

[@nto$ka]

Чтоб найти Sa надо подсчитать сумму всех элементов, а затем поделить на m*n.

Для замены, можно сделать так:
1. В цикле перебираешь строки
2. Во вложенном цикле перебираешь элементы
3. Если данный элемент меньше min то в переменную min заносишь заносишь это значение, и запоминаешь номер элемента.
4. Элемент с тем номером, что ты запомнил заменяешь на Sa

[Vasy 444]

Чтоб найти Sa надо подсчитать сумму всех элементов, а затем поделить на m*n.

Для замены, можно сделать так:
1. В цикле перебираешь строки
2. Во вложенном цикле перебираешь элементы
3. Если данный элемент меньше min то в переменную min заносишь заносишь это значение, и запоминаешь номер элемента.
4. Элемент с тем номером, что ты запомнил заменяешь на Sa

Не получается всё равно.Напиши кусок замены который ты написал.Или как нибудь по другому.Если не сложно опиши всё подробно.

[@nto$ka]

for i:=1 to N do
begin
  min:=maxint;
  for j:=1 to M do 
    if m[i,j] < min then
    begin
        min:=a[i,j];
        index:=j; 
    end;
  m[i, index]:=Sa;
end;

На самом деле, это просто алгоритм поиска минимального числа. Можешь прогуглить. Просто поиск ведется Несколько раз

Сообщение отредактировано: @nto$ka - 17.12.2012 8:50

[Vasy 444]

for i:=1 to N do
begin
  min:=maxint;
  for j:=1 to M do 
    if m[i,j] < min then
    begin
        min:=a[i,j];
        index:=j; 
    end;
  m[i, index]:=Sa;
end;

На самом деле, это просто алгоритм поиска минимального числа. Можешь прогуглить. Просто поиск ведется Несколько раз

Спасибо !!Всё получилось!!!