• Заполните массив (15) случайными числами в интервале [0,100] и найдите среднее арифметическое его значений. На языке паскаль, пж, помогите :)

Ответы 2

  • var a: array [1..15] of integer;i,s:integer; beginfor i:=1 to 15 dobegina[i]:=random (101); write (a[i],' ');s:=s+a[i]end;writeln;writeln ('Среднее арифметическое ',s/15)end.
  • PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(15,0,100); a.Println;  a.Average.Printlnend.Пример65 11 46 1 81 74 17 45 5 79 92 10 39 41 4243.2
    • Автор:

      macyzmvz
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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