Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 08:39
651
Составить программу на Паскале сортировки массива по возрастанию
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)Создания и обработки изображений, сохраняемых...
Как пояснить название метода сортировки массива метод пузырька...
Укажите способ записи следующего алгоритма: Обозначить первое из заданных чисел Х, второе - Y. Если Х = Y, то перейти к п. 8. Если Х > Y, то пе...
В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите размер следующего предложения в данной кодировке: Я к вам пишу - чего же б...