Метод впорядкування"Бульбашка"
Впорядкуйте елементи масиву у порядку спадання. Виведіть на екран результат.(Значення елемента масиву вводиться рандомно)
const
n=5;
var
a:array[1..n]of Integer;
i,j,t:Integer;
begin
Randomize;
Write('Danni do uporiadkuvannia:');
for i:=1 to n do
begin
a[i]:=Random(9);
Write(a[i]:2);
end;
for i:=1 to n-1 do
for j:=1 to n-1 do
begin
if a[j]<a[j+1] then
begin
t:=a[j];
a[j]:=a[j+1];
a[j+1]:=t;
end;
end;
Writeln;
Write('Danni pislia uporiadkuvannia:');
for i:=1 to n do
write(a[i]:2);
Readln;
end.
Для розв’язання дваної задачі потрібно використати метод "Бульбашки".
Червоним кольором позначено - рандомне введення даних у масив.
Синім кольором позначений-сам метод впорядкування.
Зеленим кольором позначено-виведення результату на екран.
Немає коментарів:
Дописати коментар