Решаем задачи Абрамян на Паскале. Series3

Series3. Даны десять вещественных чисел. Найти их среднее арифметическое.

Решение:

program Series3;
var
  R,Rez:Real;
  i:Integer;

begin
  Rez:=0;
  for i:=1 to 10 do
   begin
     Write('Введите ',i,' число: ');
     Readln(R);
     Rez:=Rez+R;
   end;
  Rez:=Rez/10;
  Writeln(Rez);
end.

program Series3;

var

R,Rez:Real;

i:Integer;

begin

Rez:=0;

for i:=1 to 10 do

begin

Write('Введите ',i,' число: ');

Readln(R);

Rez:=Rez+R;

end;

Rez:=Rez/10;

Writeln(Rez);

end.

Другие задачи из раздела Series можно посмотреть здесь.

Комментарии 1

Bronislav

20.02.2018 в 12:03

begin write('Среднее арифметическое = ',ReadSeqReal('Введите 10 вещественных чисел: ',10).Average) end.

1
2
3

begin
write('Среднее арифметическое = ',ReadSeqReal('Введите 10 вещественных чисел: ',10).Average)
end.

Ответить

Добавить комментарий Отменить ответ

➤