• Найти среднее арифметическое 10чисел, введенных с клавиатуры (Паскаль)
    Помогите

Ответы 1

  • VARA: ARRAY [1..10] OF INTEGER;i, sum: INTEGER;sr: REAL;BEGINsum := 0;FOR i := 1 TO 10 DO READ (A[i]);FOR i := 1 TO 10 DO sum := sum + A[i];sr := sum/10;WRITELN ('Среднее арифметическое = ', sr);END.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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