Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Мигает333
21.11.2021 08:30 •
Информатика
Дан вектор x(70). переменной l присвоить значение true ,если элементы массива x строго по убыванию,значение false иначе
Показать ответ
Ответ:
200005nikolll
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 оценок)
Популярные вопросы: Информатика
Котенок050402
04.10.2022 15:52
Напишите программу, которая преобразует сумму денег (целое число), предоставленную пользователем, в минимально возможное количество монет и банкнот достоинством 1, 2, 5,...
Andromeda123464
20.09.2020 03:45
Сформировать одномерный массив случайных чисел из 42 элементов, разность между которыми меньше М=35, и переставить в его начало все элементы меньшие B=5....
gelyusya
07.05.2021 10:06
Задание 5. Системы счисления Даны двоичное, восьмеричное, десятичное и шестнадцатеричное числа. 1) Двоичное число перевести в системы с основанием 8 и 16. 2) Восьмеричное...
Matimatichka
05.06.2020 10:11
Решить логическую функцию с пояснением и написать все формулы по действиям. Буду очень благодарен...
KennyPro
06.09.2021 14:17
Говорят, что хороший математик знает, что в 1 километре 1000 метров. Но хороший информатик тоже знает, сколько в 1 Килобайте бит. Чему равен 1 Кбайт?...
папаочка228
23.02.2023 23:02
Вобщежитии некоторого университета проживают студенты. среди них встречаются ботаники, лирики, и программисты. известно, что ботаников – 70 человек, что в два раза меньше,...
spring004
28.06.2022 04:24
Функция принимает три аргумента. вычисляя результат, она составляет первый и третий аргумент, а затем вычитает из полученного значения второй аргумент. def savings (pocket_money,...
ojitovtitan
03.07.2020 14:01
Язык паскаль.программисту было поручено написать программу нахождения произведения отрицательных элементов одномерного целочисленного на фото...
dhwaaо
29.08.2021 09:04
Выполни Выполни тест 1. Что выведет программа?a = 14b = 12if a =b: print(a)else: print(b)2. Выберите все варианты программ, которые выводят на экран текст «Здравствуй, мир!»...
пвиопп
11.11.2021 21:09
Дайте краткую характеристику географического положения Свердловской области....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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