ДОПОЛНИТЕЛЬНЫЕ ЗАДАНИЯ. 1. Дан массив X[1..25]. Запишите значение максимального элемента массива в X[1].

1. Дан массив X[1..25]. Запишите значение максимального элемента массива в X[1].

2. В массиве К[1..15] удалить минимальный элемент и обменять местами первый и максимальный.

3. Дан массив B[1..30]. записать вместо максимального элемента массива -100.

4. Удалить из массива D[1..n] второй положительный и третий отрицательный элементы.

5. Все элементы линейной таблицы, равные по величине максимальному элементу заменить нулем и посчитать их количество.

6. Найти минимальное значение среди элементов одномерного массива имеющих нечетные порядковые номера

7. В одномерном целочисленном массиве из 10 чисел удалить третий отрицательный элемент и поменять местами первый и последний.

Практическая работа № 10.

«Сортировка массивов.»

ПРИМЕР.

Метод перестановок

Это наиболее простой для понимания и наиболее неэффективный способ сортировки элементов таблиц.

При сортировке этим методом производится сравнение двух рядом стоящих элементов, т.е. x[1] и x[2], x[2] и x[3],…, x[n-1] и x[n]. Если в сравниваемой паре значение первого элемента оказывается больше второго, их меняют местами. Таким образом, после первого сравнительного прохода по всем парам наибольший элемент ряда будем установлен на последнее место в таблице. При втором проходе на предпоследнее место в таблице будет поставлен второй максимальный по величине элемент ряда и т.д.

		Программа:   Program Sort_1; Var a:array[1..50] of integer; i,j,n,c:integer; Begin Write('Элементов-');Readln(n); For i:= 1 to n do begin Write('a[',i,']='); Readln(a[i]); end; {вложенные циклы сортировки} For i:=1 to n-1 do For j:=i+1 to n do If a[i]>a[j] then begin c:=a[i]; a[i]:=a[j]; a[j]:=c; end; For i:=1 to n doWrite(a[i]:3); Readln; End.

 

ЗАДАНИЯ

⇐ Предыдущая567891011121314Следующая ⇒

---

Не нашли, что искали? Воспользуйтесь поиском: