Вывод элементов одномерного массива.

Вывод элементов массива на экран выпол­няется в строку, через пробел.

writeln (‘массив исходный (полученный)’);

for i: = 1 to n do Write(A[i], ' ');

или при выводе элементов массива в строку можно ис­пользовать форматный вывод.

for i:=1 to n do write (A[i]: 6:2); элементы массива вещественные.

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

for i: = 1 to n do

Writeln('A[',i,'] = ',A[i]);

Поиск, замена, работа с элементами массива с заданными свойствами .

Элементы массива называются индексированными пе­ременными и могут быть использованы как простые переменные. С ними можно выполнять все операции, которые допускаются его типом.

Копирование массива

Дан массив А из N действительных. элементов. Получить из него такой же массив В.

for i: = 1 to m do A[i]:=B[i];

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

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];