Помогите исправить программу с ККампиляцией напишите пожалуйста!!!!!!!!!!!!!! var...

Question

Помогите исправить программу с ККампиляцией напишите пожалуйста!!!!!!!!!!!!!! var n,i,j,k,max,x,m,s:integer; a:array [1..10000,1..10000] of integer; begin randomize; read (n,m); for i:= 1 to n do begin for j:=1 to m do begin a[i,j] := random (10)-5; write(a[i,j]:3); end; writeln; end; max:=0; for i:=1 to n do begin s:=0; for j:=1 to m do begin s:=s+a[i,j]; end; if s>max then begin max:=s; k:=i; end; end; writeln(max,' ',k); for j:=1 to m do begin x:= a[i,j]; a[i,j]; a[i,j]:=a[k,j]; a[k,j]:=x; end; for i:=1 to n do begin s:=0; for j:=1 to m do begin s:= 0; for j:=1 to m do begin write (a[i,j]:3); end; writeln; end; end

---

Answer 1

Ответ:

Я конечно, не знаю что вы писали, но это какой-то писец.

var

n,i,j,k,max,x,m,s:integer;

a:array [1..10000,1..10000] of

integer;

begin

randomize;

read (n,m);

for i:= 1 to n do

begin

for j:=1 to m do

begin

a[i,j] := random (10)-5;

write(a[i,j]:3);

end;

writeln;

end;

max:=0;

for i:=1 to n do

begin

s:=0;

for j:=1 to m do

begin

s:=s+a[i,j];

end;

if s>max then

begin

max:=s;

k:=i;

end;

end;

writeln(max,' ',k);

for j:=1 to m do

begin

x:= a[i,j];

a[i,j]:=a[k,j];

a[k,j]:=x;

end;

for i:=1 to n do

begin

s:=0;

for j:=1 to m do

begin

s:= 0;

write (a[i,j]:3);

writeln;

end;

end;

End.

Это вроде ошибок не должно выдавать, но что оно делает я так и не понял