Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
3 апреля 2023 01:42
709
Составить программу на Паскале сортировки массива по возрастанию
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
·
Хороший ответ
5 апреля 2023 01:42
Остались вопросы?
Еще вопросы по категории Информатика
Под носителем информации обычно понимают: 1)линию связи 2)параметр информационного процесса 3)компьютер 4)материальный носитель,который можно использ...
Ограничение размера стека: 64 Задача 5: Путешествие поездом Класс, в котором учится Дима, отправляется в путешествие! и, конечно же инновационном -...
Ученик задумал целое число от -10 до 10. Какова вероятность того, что квадрат этого числа больше 25? Меньше 10? Равен 49? Нужны решения! не только...
Алгоритмический язык алг нач цел s, k s := 2 нц для k от 1 до 5 s := s * 2 кц вывод s...
Для хранения растрового изображения размером 640x480 пикселей без сжатия отвели 300 Кбайт памяти. Каково максимальное возможное число цветов в палитре...