Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
danielasaske4
08.09.2022 19:37 •
Информатика
По м о г и т е, п о ж а л у й с т а! 1) с датчика случайных чисел получить 15 вещественных чисел n (38
Показать ответ
Ответ:
glory0211
06.10.2020 04:35
1)
begin
var a:=ArrRandomReal(15,38,39);
a.Println;
end.
2)
begin
var a := ArrRandom(20, 0, 5);
Writeln('Последовательность ');
a.Println;
Writeln('Нечетные ');
a.Where(x -> odd(x)).Println;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
irinarassohina1
17.09.2020 23:31
Опишите правила входа в систему ос windows....
fawnsvalley
10.08.2021 18:31
Найти основание р системы счисления и цифру n, если верно равенство: 33m5n + 2n443 = 55424.пример выполнен в системе счисления с основанием р, m максимальная цифра в...
olegstar74p0a994
10.06.2022 18:06
Ркбят, 1. программа - браузер (5 букв) 2. средство связи и передачи информации (5 букв) 3. какое действие можно произвести с архивным файлом (10 букв) 5. характеристика...
nastyu24022005
14.02.2020 03:30
Набор команд, который должен выполнить компьютер для решения (9 букв)...
Dimn11
01.08.2020 23:05
Множество а содержит все нечетные числа из диапаазона от 1 до 200 множесто в - простые числа из этого же диапазона. определить дополнение множества в до множества а....
dana085
23.07.2020 16:21
Какое из сообщений несет больше информации: а)в результате подбрасывания монеты (орел, решка) выпала решка. б)на светофоре (красный, желтый, зеленый) сейчас горит зеленый...
мандаринка20071
14.01.2022 07:50
Найти и вывести все числа строки. если их нет, то сообщить. (pascal)...
Сабина761
07.02.2023 00:59
Что такое логический элемент компьютера? подскажите...
vladputilov451
29.05.2022 10:04
Написать на с++ хулиганы первый и второй не любят доску почёта своей школы. поэтому они решили наглым образом украсть оттуда школьную стенгазету, сделанную отличниками,...
Marinaaa01
10.02.2022 15:45
12 3 4 5 6 7 8 9 10 0 1 2 3 4 5 6 7 8 9 0 0 1 2 3 4 5 6 7 8 0 0 0 1 2 3 4 5 6 7 . . . . . . . . 0 0 0 0 0 0 0 0 0 1 нужно получить такую матрицу (язык pascal)....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a:=ArrRandomReal(15,38,39);
a.Println;
end.
2)
begin
var a := ArrRandom(20, 0, 5);
Writeln('Последовательность ');
a.Println;
Writeln('Нечетные ');
a.Where(x -> odd(x)).Println;
end.