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

Вопрос школьника по предмету Информатика

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