Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Jackichan89
22.09.2020 14:31 •
Информатика
Дана последовательность действительных чисел. выяснить, будет ли она возрастающей (паскаль) нужен листинг
Показать ответ
Ответ:
Thelow26
03.07.2020 16:18
Var a:array[1..10] of real;
i:integer;
b:boolean;
begin
b:=true;
for i:=1 to 10 do
read(a[i]);
for i:=1 to 9 do
if a[i]>a[i+1] then b:=false;
writeln(b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
4ev43yi3
10.11.2021 20:40
Дан оператор x:=sqr(6)+4; Чему равен х после выполнения оператора?...
blueocean2016
07.07.2020 09:44
Assembler emu8086 Дан массив размера N. Вывести его элементы в обратном порядке....
Настёна30072003
26.05.2023 11:49
Даны координаты двух полей шахматной доски (координаты клетки - это 2 числа от 1 до 8: номер столбца и номер строки) одного ли цвета эти клетки на шахматной доске? вывести в выходной...
Незнаюзачемтутник
02.01.2022 19:40
Информатика что такое алгоритм только поясней...
alexeyy2012
02.08.2021 04:15
Составьте программу для подсчёта суммы квадратов чисел от 5 до 10 на паскале!...
ArinaCat123
04.01.2020 16:19
1. для того, чтобы вставить на слайд текстовую надпись, если это не предусмотрено разметкой, нужно: а. сделать двойной щелчок по слайду, затем начать писать с выбранного места....
ДашаКаськова
23.10.2022 08:21
ответ нужен ! заранее . a: =9; b: =8; c: =2; if (a b) and (b c) then x: =2*a+b+c else x: =a-b+c ответ: x=...
5555321
05.06.2021 15:53
Какой тип компьютера нужен для писателя и...
Blanco2017
18.07.2020 20:39
1. проанализируйте последствия нарушения правил ра-боты за компьютером и составьте памятку на тему «какправильно сидеть за компьютером»....
556667888
10.07.2022 22:03
На питоне даны действительные числа a, b, c. найдите все решения квадратного уравнения ax2 + bx + c = 0. входные данные даны три действительных числа, a не равно 0. выходные данные...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i:integer;
b:boolean;
begin
b:=true;
for i:=1 to 10 do
read(a[i]);
for i:=1 to 9 do
if a[i]>a[i+1] then b:=false;
writeln(b);
end.