• Паскаль.
    Дано натуральное число N, вещественные числа X1,X2...Xn, где n - кол-во чисел. Найти среднее и наименьшее.

Ответы 2

  • //PascalABC.NET//Версия 3.3, сборка 1634 (14.02.2018)begin  var x:=ArrRandomReal(ReadInteger('n->'),-100,100);  for var i:=0 to x.Length-1 do Write(x[i]:0:3,' '); Writeln;  Writeln('Среднее:',x.Average:0:3); Writeln('Минимальное:',x.Min:0:3); end.Пример:n-> 102.753 -98.086 -26.848 55.284 -31.729 -72.603 -38.772 -12.801 53.627 -7.935 Среднее:-17.711Минимальное:-98.086
    • Автор:

      aurora
    • 6 лет назад
    • 0
  • PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018Внимание! Если программа не работает, обновите версию!begin  var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->0.1*t).ToArray;  a.Println;  Writeln('Среднее ',a.Average:0:4,', минимум ',a.Min)end.Примерn= 152.8 -7.8 1.7 0.2 8.7 1.9 -6.3 -6.4 -0.2 5.4 -7.3 5.7 -8 -3.3 9.2Среднее -0.2467, минимум -8
  • Добавить свой ответ

Войти через Google

или

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

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

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