Код: Выделить всё
uses crt;
var matr:array[1..7,1..7]of integer;
i, j, k, l, chis1, chis2:integer;
begin
randomize;
clrscr;
writeln('Исходная матрица:');
for i:=1 to 7 do
begin
for j:=1 to 7 do
begin
matr[i,j]:=random(101)-50;
write(matr[i,j]:4);
end;
writeln;
end;
writeln('отсортированная матрица:');
l:=1;
while l<>8 do
begin
for i:=1 to 7 do
for j:=1 to 7 do
if matr[l,i]>matr[l,j] then begin
chis2:=matr[l,i];
matr[l,i]:=matr[l,j];
matr[l,j]:=chis2;
end;
l:=l+1;
end;
for i:=1 to 7 do
begin
for j:=1 to 7 do
write(matr[i,j]:4);
writeln;
end;
readln;
end.