Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Саша030612
21.11.2021 08:30 •
Информатика
Написать программу в вещественном массиве из 30 случайных чисел, переписать в другой массив все числа меньше среднего арифметического значения, оба массива вывести построчно pascalabc
Показать ответ
Ответ:
aktotyaubekerozp0uz
16.08.2020 10:49
// 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
0,0
(0 оценок)
Популярные вопросы: Информатика
AvdAda24
17.03.2022 20:29
Дано целое число, лежащее в диапазоне 1-99 . вывести его строку-описание вида «четное двухзначное число», «нечетное однозначное число» и т.д. !...
375196albert
13.05.2023 13:51
Определите кол-во цветов в палитре и объём информацию об одном пикселе ,если в формате .bmp рисунок размером 600х800 точек (пикселей) занимает на диске 250 килобайт ....
sfsv4641de2r
27.02.2023 11:12
Составьте уравнения,реакций ca(oh2)+sio2 naoh+p2o5 naoh+n2o5...
ttommy
27.02.2023 11:12
Вчем отличается главное отличие птиц...
Knowww
27.02.2023 11:12
Морфологический разбор слова перед леной...
Нурюс
27.02.2023 11:12
Два всадника выехали навстречу друг другу с одинаковой скоростью и встретились через 10часов один ехал до встречи на2 часа больше другово и проехал на 24 км больше...
tamerlana34ovwuq7
27.02.2023 11:12
От двух вокзалов находявшиеся на расстоянии 435 один от другого ,в 7 часов отправились навстречу друг к другу два электропоезда , и встретились на станции в 12 часов....
MrDabilin
27.02.2023 11:12
Что из ниже перечисленного наиболее точно выражает понятия спроса и величины спроса? а)то, что потребители хотят купить на рынке по различным ценам. б)то, что потребители...
dianaaloyts
27.02.2023 11:12
3. электрическая цепь состоит из двух параллельно соединенных , сопротивление которых r1=10 ом, r2=5 ом. сила тока во втором 2 а. чему равна сила тока в неразветвленной...
milana0512
27.02.2023 11:12
Доклад на тему правила речевого этикета. не большой доклад ! ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
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