Реализация алгоритмов сортировки и поиска элементов в массиве

9.1 Реализация алгоритма поиска: нахождение максимального или минимального элемента (два алгоритма).

Найти минимальный элемент массива А и его номер.

min:=a[1]; nmin:=1;

for i:=2 to 10 do if a[i]<min then

begin

min:=a[i]; nmin:=i;

end;

Writeln(‘Минимальный элемент =’, min, ‘Его номер =’, nmin:2);

9.2 Реализация алгоритма сортировки: упорядочивание массива по возрастанию или по убыванию элементов.

Упорядочить элементы массива А по возрастанию элементов.

Пример 1.

program p9_1;

const n=10;

var A:array[1..10]of integer;

i,k,c:integer;

begin

for i:=1 to n do read (a[i]);

writeln;

for i:=1 to n do write(a[i],' ');

Writeln;

for i:=1 to n-1 do

for k:=i downto 1 do

if a[k]>a[k+1] then

begin

c:=a[k];

a[k]:=a[k+1];

a[k+1]:=c;

end;

for i:=1 to n do write(a[i],' ')

end.

Пример 2.

Program p9_2;

Var x:array[1..10]of real;

i,j:integer; a:real;

Begin

writeln('Введите исходный массив:');

for i:=1 to 10 do read(x[i]);

Writeln('Неупорядоченный массив:');

for i:=1 to 10 do write(x[i]:3:1,' ');

writeln;

for i:=1 to 9 do

for j:=i to 10 do if x[i]>x[j] then

begin

a:=x[i]; x[i]:=x[j]; x[j]:=a;

end;

Writeln('Упорядоченный массив:');

for i:=1 to 10 do write(x[i]:3:1,' ');

end.