Составьте программу,по которой компьютер десять раз запросит ввод любых чисел и в результате

Составьте программу,по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных
чисел
(массив не использовать).Сделайте три варианта программы,используя операторы While,Repeat ,For.
Категория: Информатика 3 года назад
На вопрос 3 года назад
Арина Ляшчук
Программа может выглядеть так:
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.
Ответ получен 3 года назад
Ольга Казаченко

Пожалуйста зарегистрируйтесь/войдите для ответа на вопрос.  Нажмите для входа

Войти на сайт