Цитата
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