ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОГО РЕШЕНИЯ

⇐ ПредыдущаяСтр 2 из 2

Задания

1. Рассмотреть сортировку простым выбором:

Program Sort2;

Const mn=10;

Var A:Array[1..mn] of real;

i, j, m,n: Integer; k,max:real;

begin
readln(n);

randomize;

for i := 1 to n do

begin

a[i] := random(256);

write (a[i]:8:1);

end;

writeln;

For i:=n DownTo 2 Do

Begin

m:=i; max:=a[i];

For j:=1 to i-1 Do

If A[j ] >max Then Begin m:=j; max:=A[j] End;

If m<>i Then Begin A[m] :=A[i] ;A[i] :=max; End;

End;

for i := 1 to n do

write (a[i]:8:1);

End.

Каким образом выполняется сортировка простым выбором?

2. Изменить решения в двух рассмотренных методах так, чтобы осуществлялась сортировка:

1) четных элементов массива;

2) отрицательных элементов массива;

3) элементов, записанных на нечетных местах.

3. Определить есть ли в массиве равные элементы. Вывести их на экран.

ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОГО РЕШЕНИЯ

1. Дан массив целых чисел. Количество запросить с клавиатуры. Найти:
•максимальный элемент массива и его номер, при условии, что все элементы различные;
•минимальный элемент массива.

2. Дан массив из 10 элементов. Первые 4 упорядочить по возрастанию, последние 4 по убыванию.

3. Измените алгоритм предыдущей задачи для n элементов.

4. Дан массив 20 целых чисел на отрезке [-2;5]. Упорядочить массив, удалив нули со сдвигом влево, ненулевыми элементами.

5. Дан массив 15 целых чисел на отрезке [-5;5]. Упорядочить массив, удалив повторяющиеся элементы.

⇐ Предыдущая 12