Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
usenova1993
13.03.2022 07:17 •
Информатика
Массив задан датчиком случайных чисел на интервале -31 45 сформировать новый массив в состоящий из нечетных элементов массива а. размер произвольный.
Показать ответ
Ответ:
daniellarussel1
08.10.2020 13:32
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-31,45); a.Println;
var b:=a.Where(t->t.IsOdd).ToArray; b.Println
end.
Пример
n= 13
-2 14 -27 20 -12 38 -16 31 13 29 21 -24 41
-27 31 13 29 21 41
0,0
(0 оценок)
Популярные вопросы: Информатика
Valercik1
10.10.2022 18:44
В базе данных хранится информация об учениках класса. Какая фамилия окажется на первом месте после сортировки данных столбца С по алфавиту? столбца Е по возрастанию? надеюсь видно...
RGROP17
26.04.2020 15:25
Проверьте меня в этом задании и подправьте если не так...
kebabchik111
01.03.2021 19:45
Условие задания Определи название и расширение файлаDocl.docxРасширение файла:Название файла:doc1docdoc1..docxН.Список заданий...
Keepcryingpikka
10.01.2023 21:19
Рассчитать значение функции y=5x^2+x^2-7x-30 для значений аргумента 0; 1; 1,5; 6; -4 program функция; var a, b, c, d, e, x1, y1: real; procedure fun (var x, y: real) ; begin y1 :...
rusik66
31.12.2022 07:14
Язык С (функции)Написать программу, которая выдает значение функции Y = 6x2 + arctg(x), угол вводится в градусах. Перевод в радианы и поиск значения Y выполнить в функции, куда x...
Андрюша1789
26.04.2023 21:29
2.Ввести с клавиатуры число полос и построить фигуру, залив все области разным цветом3.Ввести с клавиатуры число полос и построить фигуру, залив все области разным цветом.4.Ввести...
sveta7up
19.06.2022 14:25
Какая часть раздела описаний программы определяет используемые переменные: 1.uses; 2. label; 3 var...
1234567891011121314з
29.05.2022 10:55
ОГО 10-сурет. Үйдің 2D моделі 11-сурет. Кеменің 2D моделі Ойлануға берілген сұрақтар 1. 2D графикасының қолмен салынған суреттен қандай артықшы- лығы бар? 2. 2D графика мен 3D графикаға...
KatiG
15.05.2023 12:46
файл передаётся со скоростью 360бит в секунду определите размер файла в байтах который можно передать через данное соединение за 1.2 минуты. В ответ записать одно число...
Danilove5
23.03.2023 02:45
7.а)При каком условии будет рисоваться узор? б)Какая фигура рисуется во вложенном никле? в)Сколько раз будет рисовать эта фигура? г)Нарисуй узор,который запрограммировала Айым....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-31,45); a.Println;
var b:=a.Where(t->t.IsOdd).ToArray; b.Println
end.
Пример
n= 13
-2 14 -27 20 -12 38 -16 31 13 29 21 -24 41
-27 31 13 29 21 41