"Найти среднее арифметическое массива из 5 целых чисел."

Question

"Найти среднее арифметическое массива из 5 целых чисел."

Answer 1

var

 x,S:Extended;

i:longint;

begin

 For i:=1 to 5 do begin Read(x); S:=S+x; end;

Write(S/5);

end.