сортировка по возрастанию паскаль
Автор Александра задал вопрос в разделе Домашние задания
Написать программу на паскаль. выполнить сортировку массива по возрастанию от заданного пользователем элемента и получил лучший ответ
Ответ от Ирина Сорокина[гуру]
Александра, а каким именно способом сортировать? Ведь существует несколько видов сортировок.
Какого типа данные (целые, вещественные) ?
Какое максимальное число элементов в массиве?
Я напишу сортировку по минимальному значению, числа целые, массив до 100 элементов. Исходный массив и отсортированный не распечатываю.
program PR;
var
A:array[1..100] of integer;
B:integer;
N,I,J:byte;
begin
write('Введите размер массива='); readln(N);
for J:=1 to N do begin
write('Введите значение элемента массива=');
readln(A[I];
end;
for J:=1 to N-1 do begin
for I:=J+1 to N do
if A[I]<A[J] then begin B:=A[J]; A[J]:=A[I]; A[I]:=B; end;
end;
end.
обычная сортировка пузырьком, только i:=M, j := M.
ссылка