"Найти среднее арифметическое массива из 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.
Не нашли ответ?
Похожие вопросы