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

Question

Информатика

Пульхерия

1 июня, 10:47

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

+5

Ответы (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.