• Подсчитать сумму элементов массива.

Алгоритм содержит два пункта:

1. Сумма S=0.

2. Проход по всем элементам массива и прибавление их значений к сумме S.

Полный текст программы: { Задание: Ввести массив. Подсчитать сумму элементов массива.}

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.

 

• Вычислить среднее арифметическое элементов массива.

Алгоритм содержит три пункта. Первые два совпадают с предыдущей задачей:

1. Сумма s=0.

2. Проход по всем элементам массива и прибавление их значений к сумме s.

3. Сумму делим на количество элементов массива sa=s/n .

Фрагмент программы:

Var {дополнительные переменные}

s : integer; {сумма элементов массива}

sa : real; {среднее арифметическое элементов массива}

…

Begin

...

1} s:=0;

{2} for i:=1 to n do

s: =s+A[ i ];

{3} s:=s/n;

…
      
            
<<Назад