Код: Выделить всё
program yyyyx;
const
n=7;
m=8;
type
mas = array[1..7, 1..8] of integer;
var
i, j, q, tmp: integer; w: mas;
procedure vvod(var w: mas);
var
i, j: integer;
begin
writeln('дан массив: ');
for i := 1 to n do
begin
for j := 1 to m do
begin
w[i, j] := random(10);
write(w[i, j]:4);
end;
writeln;
end;
end;
begin
randomize;
vvod(w);
for j:=1 to n do
for q:=1 to n-1 do
for i:=q+1 to n do
if w[q,j]<w[i,j] then
begin
tmp:=w[q,j];
w[q,j]:=w[i,j];
w[i,j]:=tmp;
end;
writeln('Преобразованный массив:');
for i:=1 to n do
begin
for j:=1 to n do
write(w[i,j]:4);
writeln;
end;
end. 