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

A[i] A[j] b A[2] A[5]

B:= A[i]; 1 6 -8 9 70

A[i]:= A[j]; 6

A[j]:=B; 70 6

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

Когда информация об элементах массива не позволя­ет осуществить поиск какого-либо элемента(ов) с задан­ными свойствами (характеристиками) напрямую или ускорить процесс поиска, то осуществляется простой последовательный просмотр элементов массива одного за другим. Такой метод поиска называют последователь­ным поиском.

Определить, присутствует ли в этом массиве элемент, равный переменной р

For i: = 1 to m do

if P[i] = r then …

Заметим, что если в массиве несколько одинаковых элементов r(все эти элементы, естественно, имеют раз­личные индексы), то в результате выполнения данного алгоритма будет определен самый большой по величине индекс.

Если в массиве осуществляется поиск элемента с за­данными свойствами и известно, что искомый элемент может присутствовать только один раз, в этой ситуации массив можно не просматривать до конца, например:

i: = l;

While (i<=m) and (P[i]<>r) do

inc(i);

Поиска максимального (минимального) элемента

Перед началом поиска максимального элемента пере­менной max присваивается значение первого элемента, переменной i_max индекс первого элемента — 1. В дальней­шем, выполняя последовательный поиск, как только в результате сравнения будет найден элемент, больший по своему значению «условно» максимального элемента, переменной max присваивается значение нового элемен­та массива, а i_max его индекс.

max: =A[1];

i_max: = 1;

For i: =2 to k do

if A[i] >max then begin

max: =A[i];

i_max:=i

end;

Запишите самостоятельно алгоритм нахождения минимального элемента и его индекса.

Найти сумму положительных элементов массива из N произвольных чисел.

S:=0;

For i: =1 to n do

if A[i] >0 then S: =S+A[i];

Найти количествоэлементов одномерного массива, размерностью N, принадлежащих отрезку [C;B].

for i:=1 to n do

if (A[i]>=C) and (A[i]<=B) then k:= k+1;

Найти произведение отрицательных элементов массива из N произвольных чисел.

P:=1;

For i: =1 to n do

if A[i] >0 then P: =P*A[i];

Дата добавления: 2015-07-11