Потом проходишь по всем столбцам, находишь столбец с минимальной суммой, и с максимальной... Выводишь на печать...
noki
29.11.2005 19:12
а как мне пройти по всем столбац и найти макс и мин столбы, вот это меня и интересу ет... сорри если глупый вопрос, но с паскалем у меня туго...
Ozzя
29.11.2005 19:14
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
29.11.2005 19:17
noki, если ЗА ТЕБЯ все время будут решать задания, от этого твои знания НЕ улучшатся...
noki
29.11.2005 20:35
а мне и не нужно знание паскаля, это промежуточный этап, который не как не будет связан с моей дальнейщей работой, так что если не трудно все же напиши плз мне очень надо...
noki
30.11.2005 1:54
Мне надо не макс и мин элемент, А НАДО: найти СТОЛБЦЫ в котором сумма элементов максимальна и минимальна, и присвоить им значения max и min, а не то что мне посоветовал ozzя!
noki
20.12.2005 19: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 19: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; begin for i := 1 to size_row do begin for j := 1 to size_col do write(mx[j][i]:4); writeln end; end;
var mx: tmatrix; s, i, j: integer;
s_min, i_min, s_max, i_max: integer;
begin for i := 1 to size_row do for j := 1 to size_col do mx[i][j] := random(100); writeln('before:'); print(mx);
s_min := maxint; s_max := -maxint; for i := 1 to size_col do begin
s := 0; for j := 1 to size_row do s := s + mx[i][j];
if s < s_min then begin s_min := s; i_min := i; end; if s > s_max then begin s_max := s; i_max := i; end; end;
writeln('min:':15, 'max':15); for j := 1 to size_row do writeln(mx[i_min][j]:15, mx[i_max][j]:15); end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.