Основы программирования на языке Turbo Pascal. Беляева И.В. - 38 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

38
все элементы массива}
while (I <= n - 1) and (k = 0) do
begin
{Если элемент тот, что надо, то запоминаем его индекс}
if (A[i-1] > 0) and (A[i+1] > 0) then k := i;
Inc(i); {Переходим к следующему элементу}
end;
{Выводим позицию искомого элемента}
if k = 0
then writeln('искомых элементов в массиве нет')
else writeln('искомый элемент занимает позицию', k);
…
Сортировка массива и работа с отсортированным массивом
Задача 20: Отсортировать массив по возрастанию.
Массив A является отсортированным (упорядоченным) по
возрастанию, если для всех i из интервала [1..n-1] выполняется условие
A[i]<=A[i+1].
Существует множество методов сортировки, мы же воспользуемся
одним из самых простых – методом сортировки выбором (поиском
минимального элемента).
Суть этого метода сортировки заключается в следующем:
1. В массиве находим минимальный элемент.
2. Меняем минимальный элемент с первым.
3. В усеченном (исключая первый элемент) массиве находим
минимальный элемент.
4. Ставим его на второе место.
И так далее n-1 раз.
Пример:
Массив A, исходное состояние 1 3 0 9 2.

Страницы