Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
stasymitaki
18.02.2023 19:08 •
Информатика
Дана последовательность действительных чисел а1,. выяснить, быдет ли она возрастающей.
Показать ответ
Ответ:
Покемон123456789
31.07.2020 23:15
//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
ar:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
readln(ar[i]);
for i:=1 to n-1 do
if ar[i]>ar[i+1] then
begin
writeln('Убывает на одном из участков');
exit;
end;
writeln('Возрастает');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
alina1922
06.02.2021 22:07
Я ВООБЩЕ НЕ ШАРЮ ВО ВСЁМ ЭТОМ 0_0 1 задание. У исполнителя Квадратор две команды, которым присвоены номера: 1. вычти 3; 2. умножь на 2. Составьте алгоритм получения...
123Abc9900
26.08.2020 14:26
Запишите числа в прямом коде (формат 1 байт): 31; 65;-63;-128...
kira757
06.01.2021 13:45
ИНФОРМАТИКА решение на листочке...
wiiiikkkkaaa
02.12.2021 00:29
Установите соответствие между терминами и их определениями база данныхзаписьполе...
ivanova6060
29.10.2022 15:37
Вчера ростислав с мирославом играли в камень, ножницы, бумагу на щелбаны. за каждый выигранный раунд победитель ставил один щелбан проигравшему. в случае ничьи щелбаны...
tans83lsk
07.06.2020 01:19
Твір опис (5-6речень) у художньому стилі .використовуючі прикметникі ,які написані з не і окремо...
Awesome7
07.06.2020 01:19
Для варки варенья из вишни на 3 части ягод берут 5 частей сахара. сколько сахара надо взять на 15 кг ягод?...
aluaaskarova100
07.06.2020 01:19
Центріолі необхідні для формуання а) джутикі і війок б)мітохондрій в)хлоропластів г)апарату гольджі...
Vlipli779
07.06.2020 01:19
Разработайте свой маршрут путешествия по южной америке ,который позволил бы увидеть как можно больше интересных объектов материка.учтите,что на большей части материка...
medniabdulkadyrova16
07.06.2020 01:19
Назови пары пересекающихся прямых изображённых на рисунке 5.18 , и их точки пересечение...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Const
n=5;
Var
ar:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
readln(ar[i]);
for i:=1 to n-1 do
if ar[i]>ar[i+1] then
begin
writeln('Убывает на одном из участков');
exit;
end;
writeln('Возрастает');
end.