Урок 9. Массивы Поиск максимума, минимума, поиск индекса максимума, минимума. Перестановки элементов

3 этап. Решение задач 1.Нахождение максимального (минимального) элемента в массиве. 2.Нахождение индекса максимального (минимального) элемента. 3. Перестановки элементов.

1. Н ахождение максимума max := a[1]; For k := 2 to n-1 do if a[k] < a[k+1] then max := a[k+1]; После выполнения цикла и выхода из него максимальный элемент – это max. Задание: с сс самостоятельно запишите программу нахождения минимума

2.Н ахождение индекса максимума Чтобы найти максимальный элемент в массиве и потом производить с ним какие-либо действия, нужно узнать его номер (индекс). Для этого вначале будем считать максимальным элементом первый, а потом в цикле сравнивать с ним все остальные. Как только встретится элемент, больший максимального, мы запомним этот новый индекс. Алгоритм можно записать так: N_max := 1; For k := 1 to n do if a[k] > a[N_max] then N_max := k; После выполнения цикла и выхода из него максимальный элемент – это a[N_max]. Задание: самостоятельно запишите программу нахождения индекса минимума

3. Перестановки в массиве Задание: переставить четные элементы с нечетными а1а2 в а3 57 Не верно!! Теряется число из 2-й ячейки. Что же делать? Вам интересно? Щелкните мышью 5 а2:=а1 В:=а2; а2:=а1; а1:=в;...

Алгоритм программы: 1.Ввести массив 2.B:=А[2]; 3.A[2] := A[1]; 4.A[1] := B 5.B := A[4]; 6.A[4] := A[3]; 7.A[3] := B 8.И т.д 1.Ввести массив 2.B:=А[2]; 3.A[2] := A[1]; 4.A[1] := B 5.B := A[4]; 6.A[4] := A[3]; 7.A[3] := B 8.И т.д Как короче записать команды п. 2-8: For i:=1 to n-1 do begin b:=a[i+1];a[i+1]:=a[i];a[i]:=b;end; Как короче записать команды п. 2-8: For i:=1 to n-1 do begin b:=a[i+1];a[i+1]:=a[i];a[i]:=b;end;

Задание Задание. Задать случайным образом 9 элементов числового массива – целые числа от 10 до 50. В этом массиве: Найти максимальный элемент и поменять его местами с первым элементом.