ответ:
я конечно, не знаю что вы писали, но это какой-то писец.
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.
это вроде ошибок не должно выдавать, но что оно делает я так и не понял
Поделитесь своими знаниями, ответьте на вопрос: