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

UptoLike

ВУЗ: 

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

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

Рубрика: 

154
var
g,n,i,k,q,j:integer;
b:array [1..16] of integer;
a:array [1..4,1..4] of integer;
begin {ввод исходного массива с помощью }
writeln('Исходный массив'); { датчика случайных чисел}
randomize;
for i:=1 to 4 do
for j:=1 to 4 do
a[i,j]:=random(100);
for i:=1 to 4 do
begin
for j:=1 to 4 do
write(a[i,j],' ');
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;
repeat {начало сортировки}
k:=0;
for q:=1 to 14 do
if (q mod 2)=0 then
begin
n:=q; {поиск элемента для сравнения}
repeat
n:=n+2
until n<=16;
if b[q]<b[n] then
begin {перестановка элементов}
g:=b[q];
b[q]:=b[n];
b[n]:=g;
k:=k+1;
end;
end;
until k=0; {конец сортировки}
q:=1;
for i:=1 to 4 do

Страницы