Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.