Алгоритмы и программы. Афанасьева Т. В - 153 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

153
writeln;
end;
q:=1;
for i:=1 to n do
for j:=1 to n do
begin {переписываем двумерный массив в одномерный}
b[q]:=a[i,j];
q:=q+1;
end;
repeat {начало сортировки}
k := 0;
for q :=1 to (n*n–1) do
begin
if b[q] > b[q+1] then
begin {меняем элементы местами}
g :=b[q];
b[q]:=b[q+1];
b[q+1] := g;
k :=k +1;
end;
end;
until k =0; {конец сортировки}
q:=1;
for i:=1 to n do
for j:=1 to n do
begin {переписываем одномерный массив в двумерный}
a[i,j]:=b[q];
q:=q+1;
end;
writeln('результат');
for i := 1 to n do
begin {вывод результата}
for j := 1 to n do
write(a[i,j]:4);
writeln;
end;
readln;
end.
Пример 8.8. Сортировка двумерных массивов. В двумерном массиве
отсортировать элементы на четных местах по убыванию методом парных
перестановок.
program sortm10;

Страницы