Исправить программу с ккампиляцией напишите 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

ответ:

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

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.

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

Эргоно́мика (от др.-греч. ἔργον — работа + νόμος — закон) — в традиционном понимании — наука о при должностных обязанностей, рабочих мест, предметов и объектов труда, а также компьютерных программ для наиболее безопасного и эффективного труда работника, исходя из физических и психических особенностей человеческого организма.