Hanniball
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
program sortarr;
uses crt;
var a:array[1..50,1..50] of real;
i,j,k,m,n,imax:byte;
max,x:real;
begin
clrscr;
randomize;
readln(m,n);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(100);
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4:0);
writeln;
end;
writeln;
{здесь начинается сортировка строк}
for k:=n downto 2 do
begin
{поиск максимума}
max:=a[1,1];
imax:=1;
for i:=1 to k do
for j:=1 to m do
if a[i,j]>max then
begin
max:=a[i,j];
imax:=i;
end;
{меняем местами строку с максимумом и k-ю строку}
if imax<>k then
for j:=1 to m do
begin
x:=a[imax,j];
a[imax,j]:=a[k,j];
a[k,j]:=x;
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4:0);
writeln;
end;
readln;
end.
|
Всего записей: 108 | Зарегистр. 15-05-2007 | Отправлено: 21:46 28-10-2007 | Исправлено: Hanniball, 22:12 28-10-2007 |
|
