program PascalGuru;
uses crt;
var
A: array [1 .. 100, 1 .. 100] of integer;
B: array [1 .. 100] of integer;
i, j, n, m, summa, max: integer;
{ -------------------------------------------- }
begin
write('N= ');
readln(n);
write('M= ');
readln(m);
writeln('Vvedite elementy massiva A: ');
for i := 1 to n do
for j := 1 to m do
begin
write('A[', i, ',', j, ']=');
readln(A[i, j]);
end;
clrscr;
write('Vot vvedennyi vami massiv A: ');
for i := 1 to n do
begin
writeln;
for j := 1 to m do
write(A[i, j]:4, ' ');
end;
summa := 0;
for i := 1 to m do
begin
for j := 1 to n do
summa := summa + A[j, i];
B[i] := abs(summa);
summa := 0;
end;
max := 1;
for j := 1 to m do
if B[j] > B[max] then
max := j;
for i := 1 to m do
A[i, max] := 3333;
writeln;
writeln;
write('Vot obnovlennyi massiv A: ');
for i := 1 to n do
begin
writeln;
for j := 1 to m do
write(A[i, j]:4, ' ');
end;
readln;
end.