Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ilhammusayev965
30.11.2022 22:11 •
Информатика
Создать и напечатать одномерный массив случайными числами от 0 до 15 и вывести на экран те из них, которые больше первого элемента массива.
Показать ответ
Ответ:
BlaBla552
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 оценок)
Ответ:
Lollimil
07.10.2020 23:51
Все решено и проверено мною.
0,0
(0 оценок)
Популярные вопросы: Информатика
leya0315
25.02.2020 22:24
Напишите программу для расчёта по двум формулам. Предварительно подготовьте тестовые примеры для второй формулы с калькулятора (результаты вычисления по обеим формулам...
lerabregneva
08.10.2020 13:14
Одно число в 2 раза больше другого, а их сумма равна 93. напишите программу для нахождения этих...
zaika25901
29.11.2020 22:39
На python білі капелюхи у кімнаті знаходиться кілька людей. на кожному одягнена біла або чорна шляпа. кожна людина підраховує кількість білих капелюхів, які він бачить...
эльвинчик2
04.03.2020 23:54
Типы данных в паскале. основные конструкции в языке pascal нужен реферат на 15 страниц по этим темам вместе...
lilo2622
23.06.2021 17:02
Кратные циклы while. для чего используются циклы while. общий вид операторов сравнительная характеристика нужно сообщение по этим вопросам...
743Slivka
04.11.2020 00:07
Файл размером 120 кбайт передаётся через некоторое соединение со скоростью 3072 бит в секунду. определите размер файла (в кбайт), который можно передать за то же...
12Nastya121
19.04.2021 23:07
Запиши алгоритм сохранения рисунков в программе tux.paint...
elyukros
15.12.2020 21:17
2.ЗАДАНИЕ Представленный изобретателями на Всемирной конференции роботов в Пекине вавгусте 2019года робот-высококвалифицированный специалист выполнять сложные операции...
nikj12320
28.10.2021 10:00
3.Динара хотела скачать файл «Мой проект» с папки общего доступа «Все проекты» в папку «Для проверки». Допишите алгоритм как ей это сделать.Открыть папку общего доступа,...
лиза2713
24.11.2021 22:18
Дано отверстие размером м на н. Дан кирпич размером а на в. Составить программу пройдет ли кирпич в это отверстие....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
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