Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
000Данил111111111
20.05.2022 21:48 •
Информатика
Создать и напечатать одномерный массив случайными числами от 0 до 15 и вывести на экран те из них, которые больше первого элемента массива.
Показать ответ
Ответ:
kimaleks1977
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 оценок)
Ответ:
nikita2003201711
07.10.2020 23:51
Все решено и проверено мною.
0,0
(0 оценок)
Популярные вопросы: Информатика
NasTieZ31
17.02.2022 01:42
На бесконечном поле имеется вертикальная стена. длина стены неизвестна. от верхнего конца стены вправо отходит горизонтальная стена также неизвестной длины. робот находится...
Jdjdkdjd
16.03.2020 00:26
решить задачу из егэ....
умныйнет1
18.04.2021 09:35
1. Когда прекращается цикл while? 2. Для чего нужна таблица трассировки? 3. Как с цикла while можно реализовать программу ожидания ввода чисел? 3. Самостоятельная работа...
юлианна2018
16.08.2020 12:09
Написать программу удаления букв о из введенного слова. выполнить на языке си...
ЕкатеринаВеликая28
07.09.2022 14:17
Написать программу c++ для решения следующей : упорядочить по возрастанию элементы каждой строки матрицы а(10,8) и вывести ее в виде таблицы....
ДавыдоваЮлия5678
27.07.2022 10:55
Синформатикой. на первой картинке только 2 номер....
1аук7
16.05.2020 00:48
Создание копии информации на расстоянии от исходного места хранения это? ! ...
seregalock
29.05.2023 18:01
Перевести число из десетиричной в восьмеричную 44 и 39...
liza13100
19.06.2022 05:07
Решите (паскаль) найти сумму чисел кратных 6...
IvanIvan777
04.02.2021 04:58
Решите систему уравнений подстановки 2х+у=4 3х+7у=6...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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