Код: Выделить всё
program ild;
uses crt;
const
n=5;
m=6;
var
a,b,c,d,i:integer;
f:boolean;
z:array[1..n,1..m]of integer;
procedure printtable;
begin
for a:=1 to n do begin
for b:=1 to m do
write(' ',z[a,b]:4);
if (f) and (a=n) then while readkey='' do;
writeln;
end;
end;
begin
clrscr;
randomize;
for a:=1 to n do
for b:=1 to m do
z[a,b]:=random(99);
printtable;
write('A ');
for a:=1 to n do begin
i:=1;
for b:=1 to m do
if z[a,b]>z[a,i] then i:=b;
z[a,i]:=-z[a,i];
end;
printtable;
write('B ');
c:=1;
d:=1;
for a:=1 to n do begin
for b:=1 to m do begin
if z[a,b]>z[c,d] then
begin
c:=a;
d:=b;
end;
end;
end;
for a:=1 to n do
z[a,d+1]:=0;
printtable;
write('C ');
for a:=4 to n do begin
for b:=1 to m+1 do
z[a-1,b]:=z[a,b];
end;
for b:=1 to m+1 do
z[5,b]:=0;
printtable;
write('D ');
for a:=1 to n do begin
i:=z[a,3];
z[a,3]:=z[a,4];
z[a,4]:=i;
end;
f:=true;
printtable;
end.