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

//1 const       n = 10; var       a, i, sum: integer; begin       sum : = 0;       i : = 1;       repeat               write('введите число = ');               readln(a);               sum : = sum + a;               i : = i + 1;       until i > n;             writeln('среднее арифметическое = ', sum / n); end. //2 const       n = 10; var       a, sum, i: integer; begin       sum : = 0;       i : = 1;       while i < = n do       begin               write('введите число = ');               readln(a);               sum : = sum + a;               i : = i + 1;       end;       writeln('среднее арифметическое = ', sum / n); end. //3 const       n = 10; var       a, i, sum: integer; begin       sum : = 0;       for i : = 1 to n do       begin               write('введите число = ');               readln(a);               sum : = sum + a;       end;       writeln('среднее арифметическое = ', sum / n); end.

Хитрость заключается в том, что при присваивании предыдущее значение которое имела переменная уничтожается, поэтому если вы не задействуете некую третью переменную, то запись вида a: =b; b: =a убьёт значение а=1, и значения обоих переменных будут равны 2. посему используем независимую переменную с в которую предварительно записываем начальное значение переменной а.