Рассмотрим примеры выполнения арифметических действий над элементами одномерных массивов.
Пример1. Дан массив A[1..10]. Найти сумму элементов массива.
Program P1;
Const
A:array[1..10] of integer = (25,-3,0,16,7,4,33,12,8,4);
Var i, S:integer;
Begin
S:=0;
For i:=1 to 10 do
S:=S+A[i];
Writeln('Сумма элементов =',S)
End.
Поиск суммы четных элементов массива
Program P1;
Const A:array[1..10] of integer = (25,-3,0,16,7,4,33,12,8,4);
Var i, S:integer;
Begin
S:=0;
For i:=1 to 10 do
If A[i] mod 2=0 Then
S:=S+A[i];
Writeln('Сумма =',S)
End.
Фрагмент программы для поиска произведения элементов массива
P:=1;
For i:=1 to 10 do
P:=P*A[i];
Фрагмент программы для подсчета количества элементов массива
k:=0;
For i:=1 to 10 do
k:=k+1;