Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
рената1239305
25.07.2020 10:19 •
Информатика
Напишите программу котораяв последовательности натуральных чисел определяет минимальное число, большее 150. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, большее 150.
Показать ответ
Ответ:
dashakostyk
07.10.2020 16:11
На скриншоте
=============
0,0
(0 оценок)
Ответ:
vovazvyagin
07.10.2020 16:11
// PascalABC.NET 3.3, сборка 1605 от 31.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadSeqInteger(ReadlnInteger).Where(t->t>150).Min)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
33zet33
09.10.2022 15:12
Вкодировке windows -1251 каждый символ кодируется одним байтом. опредилите информационный объем следующего предложения в данной кодировке : чернила на 99% состоят из воды 1) 31 бит...
kristina160225
09.10.2022 15:12
Для к.р. на завтра .сформировать массив из 25 случайных чисел из диапазона от 20 до 120 .найти произведение элементов массива с пятнадцатого по двадцатый включительно.b pascal...
JiJiMi
09.10.2022 15:12
Снекоторого момента дня. сколько полных недель за этот период. pascal abc...
maksimtitov98
09.10.2022 15:12
Придумайте массив и исполните предложенный фрагмент программы. сформулируйте соответствующую . a: =f[1]; b: =f[2]; for i: =1 to 8 do f[1]: = f[i+2]; f[9]: =a; f[10]: =b;...
wassilina
31.03.2021 03:58
Проведите исследование по всем создания таблицы и установите,в каком случае удобнее использовать тот или иной недостатки каждого из если они есть).какой из этих является универсальным...
Anya3456890
14.11.2021 21:08
Сообщение длиною 32 символа,записанное в 16-битной кодировке,перекодировали в 8-битную кодировку,а затем приписали еще 56 символов.чему равен информационный объем получившегося сообщения...
cat9913
14.09.2022 21:07
Какое число в текущем году приходится на третью среду марта? какой день недели в текущем году приходится на 31 декабря? какое число в текущем году приходится на последнее воскресенье...
virabasusta
14.09.2022 21:07
Сколько кбайт информации содержит сообщение объемом 2 в 20 степени бит...
elizavetamalik1
01.10.2022 10:39
Перечислите устройства для вывода информации, их назначение...
NONONONONO228
17.12.2020 21:07
Файл жазу ушин ашканда миндетти турде close командасын коюдын себеби неде ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
=============
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadSeqInteger(ReadlnInteger).Where(t->t>150).Min)
end.