Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1695 б
- arkasha_bortnikov 860 б
- Dwayne_Johnson 845 б
3 апреля 2023 01:42
551
Составить программу на Паскале сортировки массива по возрастанию
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.Сколько цветов содержится в палитре растрового рисунка, если на кодирование каждого пикселя отводится 16 бит? 2. Какой объём видеопамяти (...
Что такое Псевдокод? и составьте один отчет в виде примера....
Перевести 256 в десятичной степени в двоичную, восьмеличную, шеснадцатоличную, черыречную и семиричную....
Решите задачу: Для кодирования одного пикселя используется 4 байта фотографию размером 1024*2048 пикселей сохранили в виде несжатого файла определите...
Помогите Срочно!!! Задача 3: Конструктор Сереже на первое сентября подарили магнитный конструктор, состоящий из брусков разной длины, которые могут с...
Все предметы