Question

Составьте программу,по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел
(массив не использовать).
Использовать только Repeat
программа ПАСКАЛЬ
40 БАЛЛОВ

Answer 1

var
i: integer;
sr, s, x: real;
begin
i:=0;
repeat
readln(x);
s:=s+x;
i:=i+1;
until i=10;
sr := s/10;
writeln(sr);
end.

Answer 2

x-то тоже real должен быть

Answer 3

)))

Answer 4

Беда с вами) Тогда и s тоже)

Answer 5

да да , вот че среднее выводит вритон 

Answer 6

var i, n: integer;
S, k: real;
begin
  n := 10;
  S := 0;
  repeat
    writeln('Print number');
    readln(k);
    S := S + k;
    n := n - 1;
  until n = 0;
  writeln(S / 10);
end.