Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
kirushaaa
19.10.2021 21:42 •
Информатика
Дан вектор x(70). переменной l присвоить значение true ,если элементы массива x строго по убыванию,значение false иначе
Показать ответ
Ответ:
pudish
06.10.2020 21:39
// PascalABC.NET 3.3, сборка 1541 от 29.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите 70 целых чисел:',70);
var l:=a.Zip(a[1:],(x,y)->(x>y)).All(x->x=true);
Writeln('l=',l)
end.
Примеры
Введите 70 целых чисел: 95 91 89 87 82 81 80 75 74 73 72 66 62 59 56 54 51 49 48 47 43 39 35 34 32 31 28 26 16 11 10 9 -2 -3 -5 -8 -9 -17 -20 -21 -23 -25 -26 -28 -29 -30 -31 -34 -35 -36 -38 -39 -40 -45 -54 -55 -59 -63 -64 -65 -66 -68 -69 -70 -74 -75 -85 -89 -92 -95
l=True
Введите 70 целых чисел: 95 91 89 87 82 81 80 75 74 73 72 66 62 59 56 54 51 49 48 47 43 39 35 34 32 31 28 26 16 11 10 9 -2 -3 -5 -8 -9 -17 -20 -21 -23 -25 -26 -28 -29 -30 -31 -34 -35 -36 -38 -39 -40 -45 -54 -55 -59 -63 -64 -65 -66 -68 -69 -70 -44 -75 -85 -89 -92 -95
l=False
0,0
(0 оценок)
Популярные вопросы: Информатика
Skyflay12367
26.08.2021 10:44
Vba excel .молю .хоть что-нибудь решите...
Кетшити
03.05.2023 21:13
Як записується і виконується вказівка повторення з передумовою? ...
Ррррр5о
17.09.2020 08:29
нужно сделать алгоритм с блок схем...
daryankaa1
24.11.2020 21:56
Во сколько раз увеличится/уменьшится число А2=110,11 при переносе запятой: 1)на один разряд вправо 2)на два разряда в право 3)на один разряд в лево...
ainashsharipov
20.01.2020 21:04
12. найдите значение логического выражения не(x 3) & не(x 2)для указанных значений числа x: а) 1; б) 2; в) 3; г) 4.под буквами не варианты ответа...
VIDJER
11.03.2021 02:59
Написать про информационную безопасность сети ресторанов. с указанием ссылок на источники. также текст должен быть на половину страницы а4....
dogtor20
10.04.2022 06:28
1- укажите правильное расположение объектов в порядке удаления от солнца: а) кометное облако оорта, земля, пояс астероидов. б) земля, кометное облако оорта, пояс...
dianamakhmutova1
10.04.2022 06:28
Чем отличается фразовый глагол to take back, от to give back. напишите, , подробно в чём их отличие!...
sanik98
10.04.2022 06:28
Твыр на тему чи можна вважати прометея героем...
Алжсжсзвьвлвждчяь
10.04.2022 06:28
Іть скласти діалог між учителем та учнем про ставлення до співу ані лорак...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите 70 целых чисел:',70);
var l:=a.Zip(a[1:],(x,y)->(x>y)).All(x->x=true);
Writeln('l=',l)
end.
Примеры
Введите 70 целых чисел: 95 91 89 87 82 81 80 75 74 73 72 66 62 59 56 54 51 49 48 47 43 39 35 34 32 31 28 26 16 11 10 9 -2 -3 -5 -8 -9 -17 -20 -21 -23 -25 -26 -28 -29 -30 -31 -34 -35 -36 -38 -39 -40 -45 -54 -55 -59 -63 -64 -65 -66 -68 -69 -70 -74 -75 -85 -89 -92 -95
l=True
Введите 70 целых чисел: 95 91 89 87 82 81 80 75 74 73 72 66 62 59 56 54 51 49 48 47 43 39 35 34 32 31 28 26 16 11 10 9 -2 -3 -5 -8 -9 -17 -20 -21 -23 -25 -26 -28 -29 -30 -31 -34 -35 -36 -38 -39 -40 -45 -54 -55 -59 -63 -64 -65 -66 -68 -69 -70 -44 -75 -85 -89 -92 -95
l=False