ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ
№10. УПОРЯДОЧЕНИЕ МАССИВ А
ПОСТАНОВКА ЗАДАЧИ: Расположить элементы массива в порядке возрастания.
Из множества сортировок рассмотрим поиск MIN и перестановку.
Исходный массив: 3 2 -5 2 0 8 4
Конечный массив: -5 0 2 2 3 4 8
Program SortirowkaMassiva;
uses crt;
. . .
var min: real;
begin
for i:=1 to n do
begin
min:=a[i];
k:=i;
for j:=i to n do
if a[j]<min then
begin
min:=a[j];
k:=j;
end;
a[k]:=a[i];
a[i]:=min
end
end;
Begin
ClrScr;
Input;
ClrScr;
write('Исходный массив: ');
Print;
writeln;
Sort;
write('Конечный массив: ');
Print;
readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Отсортировать исходный массив по убыванию элементов.
3. Отсортировать исходный массив по возрастанию и убыванию элементов.
4. Отсортировать массив латинских букв.