Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
3 апреля 2023 01:42
670
Составить программу на Паскале сортировки массива по возрастанию
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
Остались вопросы?
Еще вопросы по категории Информатика
Запишите в развёрнутой форме числа: а) 143, 511; б) 143511; в) 143511; г) 1435, 11...
1. Разработчиком языка Паскаль является: а) Блез Паскаль б) Никлаус Вирт в) Норберт Винер г) Даниэль Бриклин 2. Какая последовательность символов...
Заполните пропуски,вписав пропущенные степени двойки в следующих выражениях: а) 1 Кбайт = 2 байтов = 2 битов б) 1 Мбайт = 2 Кбайт = 2 байтов = 2 бито...
Определите значение переменной «c» после выполнения фрагмента программы: c = 27 if c >10 and c % 3 == 0: &nb...
Рисунок размером 128 на 128 пикселей подготовили в палитре, использующей 24 цвета. Какой объем в Кбайтах имеет этот рисунок?...