Учеба и наука

Решено

написать программу которая вводит с клавиатуры 5 дробных чисел и вычисляет их арифметическое используя цикл for - вопрос №2705963

декабрь 22, 2017 г.

  • Всего ответов: 1

  • Андрей Андреевич - аватарка

    Андрей Андреевич

    2-й в Учебе и науке

    Возможный вариант решения:
    Program For_;
    Var
     i:integer;
     a,sum,sr:real;
    Begin
     For i:=1 to 5 do
          Begin
            write('введите',i,'-е вещественное(дробное)число');
            write('a',i,' =');
            read (a);
            sum:=sum+a;
         End;
      sr:=sum/5;
      writeln('среднее значение пяти чисел = ',sr:5:3);
    End.

    декабрь 22, 2017 г.
    Ответ понравился автору
    Лучший ответ по мнению автора

Похожие вопросы