Потом проходишь по всем столбцам, находишь столбец с минимальной суммой, и с максимальной... Выводишь на печать...
noki
29.11.2005 15:12
а как мне пройти по всем столбац и найти макс и мин столбы, вот это меня и интересу ет... сорри если глупый вопрос, но с паскалем у меня туго...
Ozzя
29.11.2005 15:14
min:=a[1,1];
for i:=1to n dofor j:=1to m dobeginif a[i,j] < min then min:=a[i,j]; нашли минимум и присвоили
minNomerStroki:=i;
minNomerStolbtsa:=j;
запомнили номера строки и столбца с мин. элементом
end;
volvo
29.11.2005 15:17
noki, если ЗА ТЕБЯ все время будут решать задания, от этого твои знания НЕ улучшатся...
noki
29.11.2005 16:35
а мне и не нужно знание паскаля, это промежуточный этап, который не как не будет связан с моей дальнейщей работой, так что если не трудно все же напиши плз мне очень надо...
noki
29.11.2005 21:54
Мне надо не макс и мин элемент, А НАДО: найти СТОЛБЦЫ в котором сумма элементов максимальна и минимальна, и присвоить им значения max и min, а не то что мне посоветовал ozzя!
noki
20.12.2005 15:08
Тут вот понаписали, а вообще на сколько я знаю тут он найдет минимальный элемент в матрице, И КОИМ ОБРЗОМ это относится к моему заданию???
min:=a[1,1]; for i:=1 to n do for j:=1 to m do begin if a[i,j] < min then min:=a[i,j]; нашли минимум и присвоили minNomerStroki:=i; minNomerStolbtsa:=j; запомнили номера строки и столбца с мин. элементом end;
volvo
20.12.2005 15:11
noki, Ты бы поаккуратнее выражения выбирал...
Цитата
Тут вот понаписали
Тебе же помогали, ты ж еще и нос воротишь... Надо было задание как положено формулировать !!!
Я давао тебе ссылку, где смотреть описание матрицы... Вот так реализуется сам поиск:
const
size_row = 10;
size_col = 10;
type
trow = array[1 .. size_row] of integer;
tmatrix = array[1 .. size_col] of trow;
procedure print(var mx: tmatrix);
var i, j: integer;
beginfor i := 1to size_row dobeginfor j := 1to size_col dowrite(mx[j][i]:4);
writeln
end;
end;
var
mx: tmatrix;
s, i, j: integer;
s_min, i_min, s_max, i_max: integer;
beginfor i := 1to size_row dofor j := 1to size_col do
mx[i][j] := random(100);
writeln('before:'); print(mx);
s_min := maxint; s_max := -maxint;
for i := 1to size_col dobegin
s := 0;
for j := 1to size_row do
s := s + mx[i][j];
if s < s_min thenbegin
s_min := s; i_min := i;
end;
if s > s_max thenbegin
s_max := s; i_max := i;
end;
end;
writeln('min:':15, 'max':15);
for j := 1to size_row do
writeln(mx[i_min][j]:15, mx[i_max][j]:15);
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.