Массив целых чисел из 15 элементов. Заполнить случайным образом. Упорядочить массив по убыванию. Подсчитать количество элементов больше 10, вывести результат.

Program sort;

var

A: array[1 ... 100] of integer;

n, i, j, k, l: integer;

begin

randomize;

n:=15;

for i:=1 to n do A[i]:=random (100); {Заполняем массив случайными числами}

for i:=1 to n do write (A[i],' '); {Массив рекомендуется выводить на экран для дальнейшего сравнения и контроля ошибок}

writeln;

k:=A[1];

l:=0;

for i:=1 to n-1 do {Сортировка методом пузырька}

for j:=1 to n-i do

if A[j]
k:=A[j];

A[j]:=A[j+1];

A[j+1]:=k

end;

for i:=1 to n do if A[i]>10 then l:=l+1; {Подсчет элементов, больших 10}

for i:=1 to n do write (A[i],' '); {Вывод на экран отсортированного массива}

writeln;

writeln ('Число элементов, больших 10: ', l)

end.

Один из методов сортировки - Метод пузырька. Сравниваются попарно элементы массива - 1 со 2, 2 с 3 и т. д. Задача - расположить элементы в порядке убывания, значит, если следующий элемент оказывается больше предыдущего, то мы меняем местами эти элементы, таким образом отодвигая большие числа влево, меньшие - вправо. И наименьший элемент окажется крайним справа. При следующем проходе уже не сравниваем последний и предпоследним, и наименьший из оставшихся окажется на предпоследнем месте.