Сортировка элементов массива

Дан целочисленный линейный массив. Отсортировать его элементы в порядке возрастания значений. Воспользуемся алгоритмом, известным под названием «метод пузырька». Идея состоит в последовательном перемещении путем попарных перестановок наибольшего значения сначала на место N-го элемента, затем (N–1)-го и т. д.

Program Sortirovka;

Var N,I,J,P: integer; A: array[1..100] of integer;

Begin

Write('Введите число элементов:');

Readln(N);

For I:=l to N do

begin write('Введите A[',I,']');

readln(A[I]); end;

For I:=1 to N-1 do

for J:=1 to N-I do

if A[J] <= A[J+1] then

begin P:=A[J]; A[J]:=A[J+l];

A[J+1]:=P; end;

For I:=1 to N do write(A[I],' ');

End.

Задания для самостоятельного выполнения

1. Написать программу для решения предложенной задачи:

1. В массиве чисел А₁, А₂, …, A_n найти сумму элементов, не принадлежащих отрезку [2, 7].

2. В массиве чисел А₁, А₂, …, A_n найти последний элемент, который больше заданного числа Р.

3. В массиве чисел А₁, А₂, …, A_n найти сумму элементов, которые меньше заданного числа D.

4. В массиве чисел А₁, А₂, …, A_n найти минимальный элемент и его номер.

5. В массиве чисел А₁, А₂, …, A_n найти сумму элементов, которые больше заданного числа Р.

6. В массиве чисел А₁, А₂, …, A_n найти произведение элементов, попадающих в заданный отрезок СD.

7. В массиве чисел А₁, А₂, …, A_n найти сумму элементов, удовлетворяющих условию |A_i| < i².

8. В массиве чисел А₁, А₂, …, A_n найти сумму отрицательных элементов.

9. В массиве чисел А₁, А₂, …, A_n найти количество отрицательных элементов.

10. В массиве чисел А₁, А₂, …, A_n найти количество элементов, равных заданному числу D.

11. В массиве чисел А₁, А₂, …, A_n найти количество положительных элементов.

12. В массиве чисел А₁, А₂, …, A_n найти количество нулевых элементов.

13. В массиве чисел А₁, А₂, …, A_n найти первое число больше заданного числа D.

14. В массиве чисел А₁, А₂, …, A_n найти первый положительный элемент и напечатать его номер.

15. В массиве чисел А₁, А₂, …, A_n найти первый отрицательный элемент и напечатать его номер.

16. В массиве чисел А₁, А₂, …, A_n найти максимальный по абсолютной величине элемент и его номер.

17. В массиве чисел А₁, А₂, …, A_n найти сумму положительных элементов среди элементов A_i с четными номерами.

18. В массиве чисел А₁, А₂, …, A_n положительные элементы заменить нулями.

19. В массиве чисел А₁, А₂, …, A_n отрицательные элементы заменить нулями.

20. В массиве чисел А₁, А₂, …, A_n изменить знак отрицательных элементов на противоположный.

2. Написать программу для решения предложенной задачи:

1. Дан массив действительных чисел А₁, А₂, …, A_n. Подсчитать количество отрицательных, положительных и нулевых элементов.

2. Дан массив действительных чисел А₁, А₂, …, A_n. Поменять местами наибольший и наименьший элементы.

3. Дан массив действительных чисел А₁, А₂, …, A_n. Вывести на печать элементы, для которых выполняется а_i  i.

4. Дан массив натуральных чисел А₁, А₂, …, A_n. Указать элементы, у которых остаток от деления на М равен L (0  L  М  1).

5. Дан массив натуральных чисел А₁, А₂, …, A_n. Поменять местами элементы, стоящие на четных местах, с соседними элементами, стоящими на нечетных местах.

6. Дан массив действительных чисел А₁, А₂, …, A_n. Найти

max(А₂, А₄, …, A_2i) + min(А₁, А₃, …, A_2i+1).

7. Дан массив целых положительных чисел А₁, А₂, …, A_n. Найти произведение элементов, больших заданного числа М. Если таких нет, то выдать сообщение об этом.

8. Дан массив целых положительных чисел А₁, А₂, …, A_n. Найти элементы, которые являются квадратами некоторого числа m.

9. Дан массив действительных чисел А₁, А₂, …, A_n. Среди элементов есть положительные и отрицательные. Заменить нулями элементы, величина которых по модулю больше максимального:

A_i > max(А₁, А₂, …, A_n).

10. Дан массив действительных чисел А₁, А₂, …, A_n. Среди элементов есть положительные и отрицательные. Вычислить произведение отрицательных элементов Р₁ и произведение положительных элементов Р₂. Сравнить модуль Р₂ с модулем Р₁ и указать, какое из произведений по модулю больше.

11. Дан массив целых чисел А₁, А₂, …, A_n. Сформировать новый массив, выбросив из исходного элементы, равные минимальному элементу массива.

12. Дан массив целых чисел А₁, А₂, …, A_n. Указать такие пары чисел a_i и а_j, для которых выполняется условие a_i + а_j = m.

13. Дан массив целых чисел А₁, А₂, …, A_n. Заменить наименьший элемент целой частью среднего арифметического всех элементов, остальные элементы оставить без изменения. Если в массиве несколько наименьших элементов, заменить последний по порядку.

14. Даны массивы целых чисел А₁, А₂, …, A_n и B₁, B₂, …, B_n. Преобразовать массив B₁, B₂, …, B_n по правилу: если a_i  0, то B_i увеличить в 10 раз, иначе B_i заменить нулем (i = 1, 2, …, n).

15. Дан массив действительных чисел А₁, А₂, …, A_n. Умножить все элементы на квадрат наименьшего элемента, если A_i  0, и на квадрат наибольшего элемента, если A_i < 0 (i = 1, 2, …, n).

16. Дан массив действительных чисел А₁, А₂, …, A_n. Заменить элементы, большие заданного Z, этим числом. Подсчитать количество замен.

17. Дан массив целых чисел А₁, А₂, …, A_n. Найти сумму элементов, расположенных между максимальным и минимальным элементами (в сумму включить оба этих элемента).

18. Дан массив натуральных чисел А₁, А₂, …, A_n. Сформировать новый массив, элементами которого будут элементы исходного, оканчивающиеся на цифру k.

19. Дан массив действительных чисел А₁, А₂, …, A_n. Сформировать два массива: в первый включите элементы исходного массива с четными номерами, а во второй – с нечетными.

20. Дан массив натуральных четырехзначных чисел А₁, А₂, …, A_n. Вывести на экран только те элементы, у которых сумма первых двух цифр равна сумме двух последних.