Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 865 б
3 апреля 2023 01:42
619
Составить программу на Паскале сортировки массива по возрастанию
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
Остались вопросы?
Еще вопросы по категории Информатика
вам дана строка, состоящая из маленьких и больших латинских букв. Проверьте, является ли эта строка панграммой. Считается, что строка содержит букву л...
1. Какое устройство осуществляет обработку информации? а) джойстик б) процессор в) клавиатура г) сканер д) ксерокс е) монитор 2. Какие устройства исп...
Переведите двоичное число 10100110 в десятичную систему счисления....
Задача 2: Потерявшееся число Тимофей выбрал натуральное число n, делящееся на 6, и записал на трёх разных карточках само число n, его половину и его т...
ПОМОГИТЕ ПОЖАЛУЙСТА!!...