Ввести с клавиатуры массив из 5 элементов, найти среднее арифметическое всех элементов массива

Question

Информатика

Моника

6 июля, 08:38

Ввести с клавиатуры массив из 5 элементов, найти среднее арифметическое всех элементов массива

+4

Ответы (1)

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

Лексей · Answer 1

var

i: integer;

a: array [1 ... 5] of integer;

s: real;

begin

writeln ('Введите 5 элементов массива через пробел:') ;

s:=0;

for i:=1 to 5 do begin read (a[i]) ; s:=s+a[i]; end;

s:=s/5;

write ('Среднее арифметическое: ', s:0:15) ;

end.