Помогите исправить программу с ККампиляцией напишите пожалуйста!!!!!!!!!!!!!!
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
Приложения:
![](https://st.uroker.com/files/c1c/c1ce8fdf50c3b1adcc8c91276b4640be.jpg)
Ответы
Ответ дал:
0
Ответ:
Я конечно, не знаю что вы писали, но это какой-то писец.
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.
Это вроде ошибок не должно выдавать, но что оно делает я так и не понял
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад