"Найти среднее арифметическое массива из 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
