3. Базовые алгоритмы обработки массивов

Кроме рассмотренных выше операций ввода (заполнения) и вывода (просмотра) элементов массива часто выполняют суммирование, нахождение произведений, поиск элементов массива. Каждое из перечисленных действий предусматривает использование циклических конструкций.

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

Для программирования нахождения суммы(произведения):

1) переменной суммирования S(произведенияP) присваивается начальное значение, равное нулю (начальное значение произведения − единица);

2) в цикле используется конструкция вида

S:=S+<слагаемое>;

P:=P*<множитель>;.

Вычислить сумму элементов одномерного массива Аразмераnпоможет следующий фрагмент программного кода:

S:=0; {начальное значение суммы}

for i:=1 to n do S:=S+A[i]; {подсчет суммы}

writeln('S=',S); {вывод суммы}

Вычислить произведение элементов двумерного массива B, состоящего изn×mэлементов, можно так:

P:=1; {начальное значение произведения}

for i:=1 to n do

for j:=1 to m do P:=P*B[i,j]; {подсчет произведения}

writeln('P=',P); {вывод произведения}

2. Поиск максимального и минимального элементов массива

Для определения минимального (максимального) элемента массива

1) скалярной переменной минимума (максимума) присваивается значение первого элемента рассматриваемого подмножества элементов массива;

2) в цикле текущее значение переменной сравнивается с каждым элементом массива и переопределяется, если рассматриваемый элемент массива меньше (больше) текущего значения переменной минимума (максимума).

Для одномерного массива А, состоящего изnэлементов, минимальный можно найти так:

min:=A[1]; {первый элемент массива назначается минимальным}

for i:=2 to n do

if A[i]<min then min:=A[i]; {текущий минимальный элемент сравнивается с каждым элементом массива и переопределяется при выполнении условия}

writeln('min=',min); {вывод минимального элемента}

Максимальный элемент двумерного массива B, состоящего изn×mэлементов, определяется с использованием вложенного цикла:

max:=B[1, 1]; {первый элемент массива назначается максимальным}

for i:=1 to n do

for j:=1 to m do

if B[i, j]>max then max:=B[i, j]; {текущий максимальный элемент сравнивается с каждым элементом массива и переопределяется при выполнении условия}

writeln('max=',max); {вывод максимального элемента}

3. Подсчет количества элементов, удовлетворяющих определенным условиям

Для подсчета количества элементов, имеющих определенные свойства:

1) переменной-счетчику kприсваивается начальное значение, равное нулю (k:=0);

2) в цикле используется конструкция вида

if <условие> then k:=k+1;

где

• <условие>− условие, налагаемое на элементы массива;

• k:=k+1− увеличение значения переменной-счетчика на единицу. Вместо оператора присваивания можно использовать встроенную функциюinc(k).

Программа, определяющая количество элементов одномерного массива, модуль которых не превосходит числа 3, представлена ниже.

Program count1;

var

A: array[1..10] of integer; {описание одномерного массива из десяти целых чисел}

i, k: integer;

begin

for i:=1 to 10 do readln(A[i]); {ввод десяти элементов

одномерного массива}

k:=0; {начальное значение счетчика}

for i:=1 to 10 do

if abs(A[i])<=3 then k:=k+1; {значение счетчика

увеличивается на единицу при выполнении условия}

writeln('k=',k); {количество элементов, соответствующих условию}

end.