Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Сабрина185к
21.09.2022 13:00 •
Информатика
Создать и напечатать одномерный массив случайными числами от 0 до 15 и вывести на экран те из них, которые больше первого элемента массива.
Ответ:
Кристинаlike
07.10.2020 23:51
// PascalABC.NET 3.3, сборка 1633 от 10.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),0,15); a.Println;
a.Where(t->t>a.First).Println
end.
Пример
n= 15
8 8 9 3 5 10 12 4 1 8 8 6 13 7 6
9 10 12 13
0,0
(0 оценок)
Ответ:
arsenhcik
07.10.2020 23:51
Все решено и проверено мною.
0,0
(0 оценок)
Популярные вопросы: Информатика
Anasteyzhaaaaaa
30.07.2020 17:54
Что такое ОС и какие основные функции она выполняет ...
innainna604
08.05.2023 15:14
Есть 2 кувшина 3 и 8 литров нужно получить 7...
vannik78
08.05.2023 15:14
Лёгкий вопрос! и на халяву) 7 класс: что такое чёрный ящик?...
zmeya9
08.05.2023 15:14
Даны три вещественных числа. вывести на экран те их них, которые принадлежат интервалу (1,6 - 3,8)....
ankaschamina20
14.07.2020 05:26
Как происходит организация совместного использования линий связи? какими ?...
Редискa
25.03.2022 00:48
Хотела скачать симс 4 от хаттаба, но не получается....
lilli393
04.08.2022 20:47
Вгороде n-ске проходит конкурс на звание мистер большой живот . побеждает тот, у кого объем талии больше всего. определить объем талии золотого и серебряного призера, если известно...
kornilovstas200
30.06.2022 03:31
Какой можно задать вопрос к слову пиксель?...
alihan22888
05.12.2021 04:48
Какой вопрос можно задать к слову интернет...
mmila4764
05.12.2021 04:48
Одномерный массив 10 цифр сумма всех четных...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),0,15); a.Println;
a.Where(t->t>a.First).Println
end.
Пример
n= 15
8 8 9 3 5 10 12 4 1 8 8 6 13 7 6
9 10 12 13