Матрица заполнена случайными числами, определить номер столбца, в котором максимальное количество троек, я понимаю наверное задача простая но я туплю. Спасибо заранее за помощь!
Артемий
24.10.2007 23:45
Ну а что пробовала?Проходишь по столбцам да и включаешь счетчик, а потом сравнивай..
-Настюша-
25.10.2007 0:59
Спасибо что откликнулись, суть я понимаю, но я не знаю как это изобразить в паскале, нужно посчитать каждый столбец отдельно, в чем и есть моя проблема, число столбцов задает учитель при проверке, а до универсальной формулы я не могу додуматься, меня недавно перевели из слабой группы в сильную, где я пока мало что понимаю.
Гость
25.10.2007 1:56
помогите пожалуйста мне нужно завтра сдать
Sozialist
25.10.2007 1:58
Var M1:array [1..100,1..100] of integer; M2:array [1..100] of integer; i,j,m,n,max:integer; begin for i:=1 to 100 do M2[i]:=0;
writeln('Filling the matrix sized m*n:'); write('m = '); readln(m); write('n = '); readln(n); for i:=1 to m do for j:=1 to n do readln(M1[i,j]);
writeln; writeln('Our matrix:'); for i:=1 to m do begin for j:=1 to n do write(M1[i,j]:4); writeln; end;
for j:=1 to n do for i:=1 to m do if M1[i,j]=3 then M2[j]:=M2[j]+1;
max:=M2[1]; for i:=2 to n do if M2[i]>max then max:=M2[i];
Writeln('Most threes are in '); for i:=1 to n do if M2[i]=max then write(i,' column');
readln end.
Вообще самой надо писать что-то, раз уж перешла в сильную группу, тем более.
мисс_граффити
25.10.2007 2:00
какое-то ограничение на количество столбцов ведь должно быть... а так - просто пишешь не
for i:=1 to 5 do
а
writeln('n=?'); readln(n); for i:=1 to n do
volvo
25.10.2007 2:02
... max_index := 0; max_count := 0;
for i := 1 to cols do begin { <--- Cols - число столбцов } count := 0; for j := 1 to rows do { <--- Rows - число строк матрицы } if a[j, i] = 3 then count := count + 1;
if count > max_count then begin count := max_count; max_index := i; end end;
writeln('больше всего троек в столбце №', max_index, ' целых ', max_count); ...
Гость
25.10.2007 2:19
Спасибо огромное, незнаю что бы я без вас делала простите что я так нагло, я сделала две задачи сама, а вот с эта последняя... спасибо
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.