Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 840 б
- Dwayne_Johnson 840 б
2 апреля 2023 08:39
499
Составить программу на Паскале сортировки массива по возрастанию
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
Остались вопросы?
Еще вопросы по категории Информатика
ПОМОГИТЕ ПОЖАЛУЙСТА!!...
Сделайте вот такую корону в кумире,прошу...
Что позволяет передавать электронная почта (e-mail)? 1)только файлы 2) сообщения и приложенные файлы 3)только сообщения 4)видеоизображения...
Придя домой, уставший Константин захотел выпить свой любимый чай. Для этого ему нужно было достать с высокой полки самое красивое блюдце, которое пред...
Дам 40 баллов Вычислите десятичные эквиваленты следующих двоичных чисел: 1. 1111 [2] 2. 10101 [2] 3. 11011 [2] 4. 1010101 [2] Переведите целые...
Все предметы