Ребята помогите написать прогу на delphi для сортировки одномерного массива из 20 чисел по возростанию и спаданию. Числа вводятся вручную.Спасибо!!!!!!!!
-
B правой части каждого сообщения есть стрелки ⇧ и ⇩. Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок ✔ в правой части сообщения.
А это разве сложно?
Могу сказать алгоритм, сравниваете элементы массива, начиная с одного, и самый больший сохраняете в в другой массив, и это все в цикле, тоесть один цикл будет работать до тех пор, пока не выберет самый больший. Был бы компилятор, написал бы...
VitoScaletta
Active member
- 13.05.2019
- 28
- 0
Сортировка по возрастанию
--------------------------------
var i, n, j: integer;
a: array [1..100] of integer;
begin
read
;
for i:=1 to n do
read(a);
for i:=1 to n do
for j:=2 to n do
if a[j]<a[j-1] then
swap(a[j], a[j-1]);
for i:=1 to n do
write(a:5);
end.
Сортировка по убыванию
------------------------------
var i, n, j: integer;
a: array [1..100] of integer;
begin
read;
for i:=1 to n do
read(a);
for i:=1 to n do
for j:=1 to n do
if a[j]<a[j+1] then
swap(a[j], a[j+1]);
for i:=1 to n do
write(a:5);
end.
Надеюсь, что помог))
--------------------------------
var i, n, j: integer;
a: array [1..100] of integer;
begin
read
;for i:=1 to n do
read(a);
for i:=1 to n do
for j:=2 to n do
if a[j]<a[j-1] then
swap(a[j], a[j-1]);
for i:=1 to n do
write(a:5);
end.
Сортировка по убыванию
------------------------------
var i, n, j: integer;
a: array [1..100] of integer;
begin
read
;for i:=1 to n do
read(a);
for i:=1 to n do
for j:=1 to n do
if a[j]<a[j+1] then
swap(a[j], a[j+1]);
for i:=1 to n do
write(a:5);
end.
Надеюсь, что помог))
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab
