Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
катя5068
01.03.2022 07:11 •
Информатика
Задана последовательность из n вещественных чисел. опреде- лить количество чисел, больших своих соседей, т. е. предыдущего и последующего числа.
Показать ответ
Ответ:
Dashuleta200
08.10.2020 18:19
Const
n = 50;// количество элем массиваvar
a: array [1..n] of integer;
kol, i: integer;begin
for i := 1 to n do
readln(a[i]);
for i := 2 to n - 1 do
if (a[i] > a[i + 1]) and (a[i] > a[i - 1]) then
kol := kol + 1;
writeln(kol);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dominikakrestina
17.05.2023 16:26
Написать три примера алгоритма с использованием линейности, ветвления и цикличности в каждом из них....
MadiHale
21.09.2020 21:16
Записать решение в языке программы python под корнем a в квадрате + b в квадрате...
Ipro3000
21.09.2020 21:16
Создайте программу в python вычислите площадь боковой поверхности цилиндра, зная радиус основания (r) и высоту цилиндра (h) (s=пrh)...
jumadillaeva
08.04.2020 07:04
Запишите формулы по правилам языка turbo pascal: 1)7ab + |a³ - 7a| 2)под корнем(√) 7a + 7b + (не подкорнем) 7a²с 3)√7a³+ b ( черта деления как у дроби) + 7c a² + b² все под корнем!...
porotnikova03
26.11.2021 00:01
Определить является ли треугольник прямоугольным , если известны три стороны.(с ветвлением)...
Мурррур
30.03.2020 22:53
обработки текстовой информации, приводящий к изменению её содержания....
9SawHoffman
30.03.2020 22:53
Пользователем вводятся числа, как положительные, так и отрицательные, при вводе 0, программа останавливается. программа выводит сумму положительных чисел...
Limon4iK1000
21.05.2022 20:07
Роль информатики и компьютерной техники в формировании современного специалиста (курсовая или любые материалы )) нужно ))...
Азрет2002
22.02.2023 04:40
1.применение векторной графики по сравнению с растровой: 1. не меняет кодирования изображения; 2. увеличивает объем памяти, необходимой для хранения изображения; 3. не влияет на объем...
Qwerrgggggg
28.12.2022 02:01
Позиционная система счисления (позиционная нумерация) - система счисления, в которой … 1)позиция числа зависит от его значения 2)значение каждого числового знака в записи числа зависит...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n = 50;// количество элем массиваvar
a: array [1..n] of integer;
kol, i: integer;begin
for i := 1 to n do
readln(a[i]);
for i := 2 to n - 1 do
if (a[i] > a[i + 1]) and (a[i] > a[i - 1]) then
kol := kol + 1;
writeln(kol);
end.