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

UptoLike

ВУЗ: 

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

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

Рубрика: 

152
writeln('Введите количество элементов');
readln(n);
for i:=1 to n do
begin
write('Введите A[',i,'] ');
readln(a[i]);
end;
repeat
k:=0;
for i:=1 to n–1 do
begin
if a[i]>a[i+1] then
begin
q:=a[i];
a[i]:=a[i+1];
a[i+1]:=q;
k:=k+1;
end;
end;
until k=0 ;
for i:=1 to n do
writeln(a[i]:8:4);
readln;
end.
Пример 8.7. Сортировка двумерных массивов. Отсортировать массив
по возрастанию элементов методом парных перестановок.
program sortm1;
const n=4;
var
b:array[1..n*n] of integer;
a:array[1..n,1..n] of integer;
q,i,j,k,g,m,gluk:integer;
begin
writeln('Исходный массив');
randomize;
for i := 1 to n do
begin
for j := 1 to n do
begin {ввод исходного массива}
gluk:=random(100); {с помощью датчика случайных чисел}
a[i,j]:=gluk–50; write(a[i,j]:4); {вывод массива}
end;

Страницы