Предмет: Информатика,
автор: awdawd91
Написать программу в вещественном массиве из 30 случайных чисел, переписать в другой массив все числа меньше среднего арифметического значения, оба массива вывести построчно
pascalABC
Ответы
Автор ответа:
0
// 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.Println
end.
Пример
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
// Внимание! Если программа не работает, обновите версию!
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.Println
end.
Пример
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
Похожие вопросы
Предмет: Українська література,
автор: natvas350
Предмет: Физика,
автор: Аноним
Предмет: Химия,
автор: nexit555
Предмет: Право,
автор: lesha1986