Обработка массивов. Власенко О.Ф - 13 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

Вычисление суммы и среднего арифметического элементов
массива
Задача 4: Подсчитать сумму элементов массива.
Алгоритм содержит два пункта:
1. Сумма S=0.
2. Проход по всем элементам массива и прибавление их значений к
сумме S.
Приведем полный текст программы – решение этой задачи:
{Пример обработки одномерного массива}
{ Задание: Ввести массив. Подсчитать сумму элементов массива.}
Program SumExample;
Const {определение констант}
maxN = 20; {максимально возможное количество элементов
в массиве}
Type {определение типов}
IndexEl = 1 .. maxN; {индексы массива лежат в интервале
от 1 до maxN}
arrInt = array[interval] of integer; {массив целых чисел
содержащий до maxN элементов}
Var
a:arrInt; {массив}
n:interval; {размерность массива}
i:IndexEl; {переменная для сканирования массива}
S:integer; {сумма элементов массива}
Begin
{ ввод массива с клавиатуры }
write(‘Введите n=’);
read(n); {ввод количества элементов}
for i:=1 to n do
read(A[i]); {ввод самих элементов}
{Подсчет суммы элементов массива}
{1} s:=0;
{2} for i:=1 to n do
s:=s+A[i];
{Вывод полученного значения суммы}
writeln(‘сумма элементов массива S=’, S);
end. {конец программы}

Страницы