Отсортировать массив методом "Пузырька" - Pascal ABC

Формулировка задачи:

Помогите пожалуйста.Целочисленный массив состоит из значений диапазона от 100 до 200. Направление сортировки: по возрастанию. И обязательно:Размер массива n задать как константу.Применить сортировку методом «пузырька».


textual

Код к задаче: «Отсортировать массив методом "Пузырька" - Pascal ABC»

const
 n=10;
var
 a:array[1..n] of integer;
 i,j,k:integer;
begin
 randomize;
 write ('Исходный массив: ');
 for i:=1 to n do
  begin
   a[i]:=random(100)+100;
   write(a[i]:4);
  end;
 writeln;
 for i:=1 to n-1 do
  for j:=1 to n-i do
   if a[j] > a[j+1] then
    begin
     k:=a[j];
     a[j]:=a[j+1];
     a[j+1]:=k
    end;
 write('Готовый массив: ');
 for i:=1 to n do
  write (a[i]:4);
 writeln;
 readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.091 из 5

Источник