Найти в матрице вектор-столбец Max длины, Запутался Опции

[Ne4aev]

ПАмАгите пАжАлУста решить эту задачу, а то я совсем уже....
Ещё так часика 2-3 посидеть и на моей голове можно будет яиШницу жарить!
Такчто у кого дома плита сломалась или газ отключили можете смело обращаться ко мне

Совсем не понимаю как решать....
........Заранее спасибо.......

[Altair]

Ne4aev

Я так понимаю МИЭМовиец ....
Это Нечаев-то не может решить ? ЛОЛ!
Блин я же решал это уже кому-то вроде...

Код

var
a[1..nn,1..mm] of real;
s0,s,k,i,j,n,m:integer;

begin
{vvod matrizi}
repeat
 readln(n);
until (N>1) and(n<=nn);
repeat
readln(m);
until (m>1) and (M<MM);

For i:=1 to n do for j:=1 to m do readln(a[i,j]); {vvod postrochnp}

for j:=1 tom do for i:=1 to n do s:=s+sqr(a[i,j]);
If s>s0 then begin s := s; k:=j; end;

for I:=1 to n do write(a[i,k], ' ');
end.

If (автор_темы = элемент_группы(k-12)) and (автор_темы=студент_МИЭМа) then завтра на лабах объясню ...
:D

[Ne4aev]

Я так понимаю МИЭМовиец ....
Это Нечаев-то не может решить ? ЛОЛ!
Блин я же решал это уже кому-то вроде...

Код

var
a[1..nn,1..mm] of real;
s0,s,k,i,j,n,m:integer;

begin
{vvod matrizi}
repeat
 readln(n);
until (N>1) and(n<=nn);
repeat
readln(m);
until (m>1) and (M<MM);

For i:=1 to n do for j:=1 to m do readln(a[i,j]); {vvod postrochnp}

for j:=1 tom do for i:=1 to n do s:=s+sqr(a[i,j]);
If s>s0 then begin s := s; k:=j; end;

for I:=1 to n do write(a[i,k], ' ');
end.

If (автор_темы = элемент_группы(k-12)) and (автор_темы=студент_МИЭМа) then  завтра на лабах объясню ...
  :D

Спасибо,Олег!Теперь я поставлю тебе зачёт в году!:)



До завтра!хых!