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

UptoLike

ВУЗ: 

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

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

Рубрика: 

146
k:=j;
end;
end;
a[k]:=a[i];
a[i]:=m;
end;
for i:=1 to n do
writeln(a[i]:8:4);
readln;
end.
Пример 8.2. Сортировка двумерных массивов. Переставить элементы
по убыванию в двумерном массиве методом модифицированного простого
выбора.
program sortm2;
var
a:array[1..4,1..4] of integer;
b:array[1..16] of integer;
n,q,i,j,k,m:integer;
begin {ввод исходного массива с помощью }
writeln('Исходный массив'); { датчика случайных чисел }
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
a[i,j]:=random(30);
write(a[i,j]:3);
end;
writeln;
end;
q:=1;
for i:=1 to 4 do
for j:=1 to 4 do
begin {переписываем двумерный массив в одномерный}
b[q]:=a[i,j];
q:=q+1;
end;
for q:=1 to 15 do {начало сортировки}
begin
m:=b[q];k:=q;
for n:=q+1 to 16 do
begin

Страницы