Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача паскаль ABC
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Vasy 444
Ввести матрицу A(N,M). Определить значение среднего арифметического Sa всей матрицы. Заменить в каждой строке матрицы минимальный элемент на значение Sa. Матрицу распечатать.
@nto$ka
Чтоб найти Sa надо подсчитать сумму всех элементов, а затем поделить на m*n.

Для замены, можно сделать так:
1. В цикле перебираешь строки
2. Во вложенном цикле перебираешь элементы
3. Если данный элемент меньше min то в переменную min заносишь заносишь это значение, и запоминаешь номер элемента.
4. Элемент с тем номером, что ты запомнил заменяешь на Sa
Vasy 444
Цитата(@nto$ka @ 16.12.2012 18:37) *

Чтоб найти 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;



На самом деле, это просто алгоритм поиска минимального числа. Можешь прогуглить. Просто поиск ведется Несколько раз
Vasy 444
Цитата(@nto$ka @ 17.12.2012 9:49) *


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;



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

Спасибо !!Всё получилось!!!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.