Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1685 б
- arkasha_bortnikov 805 б
- Dwayne_Johnson 800 б
2 апреля 2023 08:39
487
Составить программу на Паскале сортировки массива по возрастанию
1
ответ
Сортировка методом пузырька:
const n=10;
Var a:array[1..n] of integer; i,j,b:integer;
Begin
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]<a[i] then
begin
b:=a[i];
a[i]:=a[j];
a[j]:=b;
end;
for i:=1 to n do write(a[i],' ');
End.
const n=10;
Var a:array[1..n] of integer; i,j,b:integer;
Begin
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]<a[i] then
begin
b:=a[i];
a[i]:=a[j];
a[j]:=b;
end;
for i:=1 to n do write(a[i],' ');
End.
0
·
Хороший ответ
4 апреля 2023 08:39
Остались вопросы?
Еще вопросы по категории Информатика
Дайте имена объектам 1)выросшим на грядке 2)проживающим в Москве 3)управляющим трактором 4)посещающим детский сад 5)находящимся в школе...
Выберите знаковые информационные модели: 1.Формула площади прямоугольника 2.Басня 3.Иллюстрация 4.Рисунок 5.Географическая карта...
Растровая графика Таблица 2.3 Векторная графика ая Основной принцип Я Достоинства Недостатки СРОЧНО ДАМ ЛУЧШИЙ ОТВЕТ...
Исполнитель преобразует число, записанное на экране. У исполнителя есть три команды, которым присвоены номера: A . Прибавить 1 B .&n...
Укажите правильный вариант записи условия "x-двузначное число"...
Все предметы