Question

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

Answer 1

1) С помощью while:
var

a,b,c,i:integer;

begin

 i:=0;

 b:=0;

 writeln('Write 10 number:');

 while i<10 do

  begin

   read(a);

   b:=b+a;

   i:=i+1;

 end;

 writeln('Average: ',b/10:0:0);

 readln

end.