Отсортировать массив методом "Пузырька" - Pascal ABC
Формулировка задачи:
Помогите пожалуйста.Целочисленный массив состоит из значений диапазона от 100 до 200. Направление сортировки: по возрастанию. И обязательно:Размер массива n задать как константу.Применить сортировку методом «пузырька».
Решение задачи: «Отсортировать массив методом "Пузырька"»
textual
Листинг программы
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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д