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

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

)))

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

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

vari: integer;sr, s, x: real;begini:=0;repeatreadln(x);s:=s+x;i:=i+1;until i=10;sr := s/10;writeln(sr);end.

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.