Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1700 б
- arkasha_bortnikov 890 б
- Dwayne_Johnson 860 б
2 апреля 2023 08:39
524
Составить программу на Паскале сортировки массива по возрастанию
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
Остались вопросы?
Еще вопросы по категории Информатика
В алфавите языка племени тумба-юмба 4 буквы: гласные О и А, согласные Ш и Щ. Вероятность их появления в тексте: А — 0,35, О — 0,4, Ш — 0,1, Щ — 0,15....
Дан фрагмент таблицы истинности выражения F:(продолжение в фото) Помогите пожалуйста...
ПОМОГИТЕ ПОЖАЛУЙСТА ЭТО СРОЧНО . По заданному алгоритму составь блок-схему...
В каком режиме работает с базой данных пользователь?...
В КОРЗИНЕ ЛЕЖИТ 4 ГРУШИ И 12 ЯБЛОК .КАКОЕ КОЛИЧЕСТВО ИНФОРМАЦИИ СОДЕРЖИТ СООБЩЕНИЕ О ТОМ,ЧТО ИЗ КОРЗИНЫ ДОСТАЛИ ГРУШУ?...
Все предметы