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

Question

Информатика

Дарюха

25 ноября, 15:32

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

+4

Ответы (1)

Знаешь ответ?

Павлина · Answer 1

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