Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 08:39
633
Составить программу на Паскале сортировки массива по возрастанию
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
Остались вопросы?
Еще вопросы по категории Информатика
(82 балла) Дана задача: Ввести последовательно возраст Антона,Бориса и Виктора. Определить,кто из них старше. Пример: Возраст Антона: 15 Возраст Бор...
Дан алгоритм для Робота: алг нач нц 53 раз вправо; закрасить кц кон Робот выполнит 53 шагов вправо и закрасит эти клетки, если не будет встр...
ПоМОГИТЕ!!!!В нужные места вставьте буквы, обозначающие гласные звуки, так, чтобы получились названия устройств персонального компьютера. 1. Мтрнск пл...
Задача. Найти сумму цифр данного числа. (Сделать программу в C++)...
Среди проведенных ниже трех чисел, записанных в различных системах счисления, найдите наибольшее и запишите его в ответе в семеричной системе счислени...