Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
ErnurNick
06.01.2022 01:19 •
Информатика
Составить программу в pascal, которая проверяет, расставлены ли числа в порядке возрастания. используя логическую переменную (boolean). заранее огромное !
Ответ:
olga195888
01.09.2020 19:22
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var b:=ReadArrInteger(ReadInteger('n=')).Pairwise.All(t->t[0]<=t[1]);
b.Println;
end.
Примеры
n= 5
36 46 57 39 94
False
n= 7
9 11 23 64 79 120 500
True
0,0
(0 оценок)
Популярные вопросы: Информатика
ДмитрийYT
19.09.2022 09:41
Решить не (( первая буква гласная) и (последняя буква согласная)) какое из вариантов ответов ложно? a) анна b) вера c) виктор d) иван...
karinayackupow
03.04.2021 20:27
Сформулировать и вывести на экран последовательности из n элементов датчиком случайных чисел из промежутка (- 23; 34)...
BigAwto
06.05.2022 18:18
1) какое оборудование используется для разметки области рисования Отеть ...
DYUK1s
29.04.2023 17:19
Укажите последовательность команд для запуска графического редактора Paint: * О Pi*y – Microsoft Office Меню – Программы изображения – Paint О О Paint - Gamma Графика и Пуск -...
shishovtopking
24.07.2022 10:52
Выберите число, записанное в восьмеричной системе счисления: ( : 1) 7654321 888888 А7777 1111118 2.Укажите самое большое число из нижеприведённых: ( : 1) 100 (в двоичной с.с.)...
Irina1440
25.03.2023 13:53
Какие инструменты относятся к инструментом модификации?...
Nr2006
06.12.2022 22:04
даже если не полностью ответите то буду благодарен.1)Мансур решил сделать апгрейд своего компьютера. В интернет магазине Unicode он посмотрел информацию об имеющихся процессорах,...
ДаниилВолоснов
10.08.2022 16:24
Какое значение принимает логическое выражение (не (x = 5) или (y = 2)) и не (x + y = 3) при значениях переменных x = 4 и y = 1?...
tanyat2003
26.09.2020 06:54
МНЕ ЕГО ОСТАЛОСЬ СДАТЬ 14:50...
co63upo
17.09.2021 17:02
Логическая схема устройства реализует функцию? СХему решить по информатике подробно...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var b:=ReadArrInteger(ReadInteger('n=')).Pairwise.All(t->t[0]<=t[1]);
b.Println;
end.
Примеры
n= 5
36 46 57 39 94
False
n= 7
9 11 23 64 79 120 500
True