Автор: Ne4aev 21.10.2004 19:56
ПАмАгите пАжАлУста решить эту задачу, а то я совсем уже....
Ещё так часика 2-3 посидеть и на моей голове можно будет яиШницу жарить!
Такчто у кого дома плита сломалась или газ отключили можете смело обращаться ко мне
Совсем не понимаю как решать....
........Заранее спасибо.......
Автор: Altair 21.10.2004 20:07
Цитата
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 22.10.2004 4:14
Цитата(Oleg_Z @ 21.10.04 16:07)
Я так понимаю МИЭМовиец ....
Это Нечаев-то не может решить ? ЛОЛ!
Блин я же решал это уже кому-то вроде...
Код
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
Спасибо,Олег!Теперь я поставлю тебе зачёт в году!:)
До завтра!хых!