Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
stars28082003
30.11.2020 07:02 •
Информатика
Задана последовательность из n вещественных чисел. опреде- лить количество чисел, больших своих соседей, т. е. предыдущего и последующего числа.
Показать ответ
Ответ:
ропчан
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 оценок)
Популярные вопросы: Информатика
IrinaEfremova2003
10.06.2021 21:03
Если первое из двух чисел a и b нечетное то найти сумму этих чисел в противном случае вычислить их произведение составить программу в редакторе vb ms excel (basic)...
NasFan
27.08.2022 04:29
Что такое поиск информации? а) процесс распространения информации от источника к приемнику б) извлечение сохраненной информации для дальнейшего использования в) процесс...
Flas003
31.03.2023 16:16
Расскажите о возможностях и функциях кисти Как открыть готовые изображения в Pain Net...
fghhjk1
19.03.2020 21:11
Выполните в среде программирование Python: Ввести клавиатурное значение x и y, найти значение z=x-y+x2+y2/15...
pandamashenka
11.04.2022 17:38
Выписать новые определения в тетрадь из учебника, страница 72-73: Робот- Промышленные роботы- Транспортные роботы – Бытовыми роботами можно Медицинские роботы – К образовательным...
4iksa12345ozu4gd
14.08.2022 20:49
Напишите программы на языке pascal (оператор repeat): 1) напечатать все целые значения от a до b с шагом h. вход: 1 10 2 вход: 5 20 5 выход: 1 3 5 7 9 выход: 5 10 15 20...
inessa2012
09.09.2021 15:20
Язык программирования Python, Информатика...
jtj6898
13.06.2022 19:24
Вывести номер позиции с которого строка форма входит в строку информатика. паскаль...
Feirte
27.10.2020 04:44
Определить направление индукционного тока в замкнутом контуре...
minyoourae
07.11.2021 01:38
написать сочинение на английском What must a student on duty do in your school?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.