1. Заполните массив с клавиатуры А (8). Найти среднее арифметическое элементов массива.

Const

N = 8;

Var

A:array[1 ... N] of integer;

i:integer;

S:real;

Begin

Write ('Введите массив A (', N,') : ') ;

For i: = 1 to N do

Begin

Read (A[i]) ;

S:=S+A[i];

End;

WriteLn ('Sr = ', S/N) ;

End.

Пример работы программы:

Введите массив A (8) : 1 2 3 4 5 6 7 8

Sr = 4.5