• Написать программу в вещественном массиве из 30 случайных чисел, переписать в другой массив все числа меньше среднего арифметического значения, оба массива вывести построчно
    pascalABC

Ответы 1

  • // PascalABC.NET 3.3, сборка 1541 от 29.09.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=SeqRandomInteger(30,-50,50).Select(x->1.2*x).ToArray;  a.Println;  var m:=a.Average;  var b:=a.Where(x->x<m).ToArray; b.Printlnend.Пример27.6 -40.8 50.4 -14.4 -46.8 9.6 7.2 -36 -32.4 -60 -30 38.4 -2.4 -55.2 -43.2 -39.6 1.2 -52.8 -38.4 34.8 -45.6 -12 15.6 -55.2 4.8 13.2 -1.2 -40.8 -33.6 -19.2-40.8 -46.8 -36 -32.4 -60 -30 -55.2 -43.2 -39.6 -52.8 -38.4 -45.6 -55.2 -40.8 -33.6 -19.2
  • Добавить свой ответ

Войти через Google

или

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

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

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