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

"Найти среднее арифметическое массива из 5 целых чисел."
Гость
Ответ(ы) на вопрос:
Гость
var  x,S:Extended; i:longint; begin  For i:=1 to 5 do begin Read(x); S:=S+x; end; Write(S/5); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы