Question

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

Answer 1

Программа может выглядеть так:

uses Crt;
const n=10;
var  a, i, Sum: integer;
     Sred: real;
begin
ClrScr;
Sum:=0;
i:=1;
While i<=10 do
 begin
   Write ('a = ');
   ReadLn(a);
   Sum:=Sum+a;
   i:=i+1;
 end;
 Sred:=Sum/n;
 Writeln('Sred = ', Sred:6:2);
 WriteLn;

Sum:=0;
i:=1;
repeat
   Write ('a = ');
   ReadLn(a);
   Sum:=Sum+a;
   i:=i+1;
 until i>n;
 Sred:=Sum/n;
 Writeln('Sred = ', Sred:6:2);
 WriteLn;

Sum:=0;
for i:=1 to n do
  begin
      Write ('a = ');
      ReadLn(a);
      Sum:=Sum+a;
  end;
 Sred:=Sum/n;
 Writeln('Sred = ', Sred:6:2);
 ReadLn;
 end.

Answer 2

1. While:
var a,i,s:integer;
begin
s:=0;
i:=0;
while i<10 do
 begin
 i:=i+1;
 write('a = ');
 readln(a);
 s:=s+a;
 end;
writeln('Среднее арифметическое = ',s/10);
end.

2. Repeat
var a,i,s:integer;
begin
s:=0;
i:=0;
repeat
 i:=i+1;
 write('a = ');
 readln(a);
 s:=s+a;
until i=10;
writeln('Среднее арифметическое = ',s/10);
end.

3. For:
var a,i,s:integer;
begin
s:=0;
for i:=1 to 10 do
 begin
 write('a = ');
 readln(a);
 s:=s+a;
 end;
writeln('Среднее арифметическое = ',s/10);
end.

Пример:
a = 4
a = 6
a = 9
a = 7
a = 1
a = 3
a = 6
a = 5
a = 4
a = 8
Среднее арифметическое = 5.3

Answer 3

Программа с использованием оператора While

program AverageWhile;

var
  num, sum: Integer;
  count: Integer;

begin
  sum := 0;
  count := 0;
  
  while count < 10 do
  begin
    Write('Введите число: ');
    Readln(num);
    
    sum := sum + num;
    count := count + 1;
  end;
  
  writeln('Среднее арифметическое: ', sum / 10);
  
end.

Программа с использованием оператора Repeat

program AverageRepeat;

var
  num, sum: Integer;
  count: Integer;

begin
  sum := 0;
  count := 0;
  
  repeat
    Write('Введите число: ');
    Readln(num);
    
    sum := sum + num;
    count := count + 1;
  until count = 10;
  
  writeln('Среднее арифметическое: ', sum / 10);
  
end.

Программа с использованием оператора For

program AverageFor;

var
  num, sum: Integer;
  count: Integer;

begin
  sum := 0;
  
  for count := 1 to 10 do
  begin
    Write('Введите число: ');
    Readln(num);
    
    sum := sum + num;
  end;
  
  writeln('Среднее арифметическое: ', sum / 10);
  
end.

Во всех трех программах компьютер запрашивает ввод чисел 10 раз и сохраняет их сумму в переменной `sum`. Затем программа выводит среднее арифметическое значение введенных чисел, разделив сумму на 10.