5лет

Информатика, помогите написать код. Язык Паскаль ABC

Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать). Сделайте три варианта программы, используя операторы цикла While, Repeat и For.

По дате

По рейтингу

user_228026843

Мудрец

5лет

begin
var i: integer;
var s: real;
while i < 10 do begin s += ReadReal; i += 1 end;
(s / 10).Println;
(i, s) := (0, 0.0);
repeat s += ReadReal; i += 1 until i > 9;
(s / 10).Println;
s := 0.0;
for var j := 1 to 10 do s += ReadReal;
(s / 10).Print
end.