Основы программирования на языке Turbo Pascal. Беляева И.В. - 22 стр.

UptoLike

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

Рубрика:

Program SumExample;

Const {Определение констант}

maxN = 20; {Максимально возможное количество элементов

в массиве}

Type {Определение типов}

IndexEl = 1 .. maxN; {Индексы массива лежат в интервале

от 1 до maxN}

arrInt = array[IndexEl] 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. {Конец программы}

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

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

задачей:

1. Сумма S=0.