Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
3 апреля 2023 01:42
699
Составить программу на Паскале сортировки массива по возрастанию
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
Остались вопросы?
Еще вопросы по категории Информатика
Определите информационный вес символа i алфавита мощностью N, заполняя таблицу: N N=2i i(битов) 8 ? ? 32 ? ? 64 ? ? 128 ? ? 256 ? ?...
Текст длиной 57344 символов закодирован с помощью алфавита, содержащего 8 символов.Сколько килобайт занимает в памяти этот текст?...
1. Почему глобальная компьютерная сеть Интернет продолжает нормально функционировать даже после выхода из строя отдельных серверов и линий связи?...
Для хранения растрового изображения размером 64 на 64 пикселя отвел 512 байтов памяти. Каково максимально возможное число цветов в палитре изображения...
На месте преступления были обнаружены четыре обрывка бумаги. Следствие установило, что на них написаны фрагменты одного IP-адреса. Криминалисты обозна...