• ОЧЕНЬ СРОСНО!!!!!!
    Составить программу, находящую среднее арифметическое любых пяти чисел. ПОЖАЛУЙСТА!!!!!! в цикле для, пока, до

Ответы 3

  • Поясните, пожалуйста, я не понимаю
  • В цикле 5 раз (а присваиваем случайное число, пишем его, прибавляем к b) после выводим на экран b/5
    • Автор:

      vanvqef
    • 6 лет назад
    • 0
  • Var  i:integer;  a,b:real;Begin  for i:= 1 to 5 do Begin    a:=random(50);    write(a,' ');    b:=b+a;  End;  Writeln;  write('Их средн арифм = ',b/5);End.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years