Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
помогитееее468457345
02.06.2022 19:21 •
Другие предметы
Дана последовательность действительных чисел а1, а2, ..., аn. Выяснить, будет ли она возрастающей (программа Паскаль)
Показать ответ
Ответ:
olyazherlitsyna
16.04.2019 23:00
var
a:array[1..100] of real;
i,n: byte;
f: boolean;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
f:=true;
for i:=2 to n do
if (a[i]>a[i-1]) and (f=true) then f:=true
else f:=false;
writeln('последовательность возрастающая: ',f);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
dasha54321d
12.01.2023 15:32
сделать РГР по теоретической механике. Нужно разрезать на три части балку и составить для каждой по три уравнения Rx, Ry, M. Вариант 7. Очень нужна не понимаю эту механику...
Like2942
21.11.2021 09:39
План подій 2 розділ Айвенго...
UltraTwItTeR
12.03.2022 11:09
Черчение, черчение... как сделать...
leratsvetik
26.11.2022 10:29
Заполните таблицуНазвание полезного ископаемогоМесторождение (где добывают)...
sofiya13031
14.12.2021 14:15
3. Прочитай. Запиши предложения так, чтобы получился связный рассказ. Поставьв словах знак ударения.Говорили о том, что страус умеет бы-стро бегать.Рассказывали про...
Даниил358
13.07.2022 05:19
Запитання 2 Який рядок з моралі байки І.Крилова Вовк і Ягня :варіанти відповідей В історії є прикладів чимало... ; Розповім вам байку, з котрої пізнаєте, що хто сильніший,...
qppqwoow
30.11.2021 22:44
Написати твір роздум Вірність і відданість християнських переконань у житті людини ...
marishakfine
11.04.2023 01:26
Выберите слово, в котором на месте пропуска пишутся две буквы н. нароч..нодружелюбн..оискус..нопутан..оэкстрен..о...
chamich
03.04.2021 11:38
Як зображення Землі на площині вам відомі? природоведение)...
Shrhfhd
09.05.2021 12:33
Українська мова 5-Б клас 21.01.2021 Вставте там де потрібно м’який знак та відкрийте ключ Куз..ня, (на) яблун..ці, (в) хатин..ці, велетен..ський, біл..ший, мен..ший,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a:array[1..100] of real;
i,n: byte;
f: boolean;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
f:=true;
for i:=2 to n do
if (a[i]>a[i-1]) and (f=true) then f:=true
else f:=false;
writeln('последовательность возрастающая: ',f);
readln;
end.