Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ghorddd
29.06.2020 23:33 •
Информатика
Написать программу на pascal даны натуральное число n, действительные числа y1, , yn. найти: max(|z1|, , |zn|), где zi = yi при |yi| < =2, 0,5 в противном случае.
Показать ответ
Ответ:
alenashumaher
08.10.2020 02:05
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
ReadSeqReal('Введите '+n+' чисел:',n)
.Select(y->Abs(y)<=2?Abs(y):0.5).Max.Println
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Arisha7777
23.06.2021 07:38
ів 1. Як перетворити значення дійсного типу на рядок символів? 2. Як перетворити значення цілого типу на рядок символів? 3. Як перетворити рядок символів на значення числового...
Gali77
04.02.2020 14:10
От разведчика была получена следующая радиограмма, переданная с использованием азбуки морзе...
katyamora
23.01.2020 07:24
Можно этим активировать windows 10 home. Что бы не-было проблем с пк ? slmgr /ipk TX9XD-98N7V-6WMQ6-BX7FG-H8Q99 slmgr /skms kms.xspace.in slmgr /ato...
allalal1
17.04.2022 22:47
Записать 2018 в 8 разрядном и в 16 разрядном в беззнаковом формате...
karashina2
30.07.2020 14:17
1) В процессе преобразования растрового графического изображения количество цветов уменьшилось с 256 до 8. Во сколько раз уменьшится объем занимаемой им памяти? 2) Какой...
Hicka
22.10.2020 11:31
Задание 8. В соревновании принимали участие 88 школьников. Из них 32 ученика из Минска, 22 — из Витебска, 16 из Гомеляи 17 учеников из Бреста. В какой системе счисления...
rikgetikov
02.12.2022 16:42
Буквы г, б, л входили в состав трех различных слов, состоящих из четырех букв. первое слово начиналось на н, а оканчивалось на а. во втором слове начальная буква с, а...
vbv551
11.09.2022 11:07
Нужно в столбик 5. Розв яжи рівняння 4х = 15, 2....
mika181minecrafMilka
16.05.2022 22:30
Найти наибольшее и наименьшее значение функции на отрезке и построить график:...
Chvik
25.04.2020 12:45
Твір роздум на тему Чи потрібно в житті милосердя? на основі людських вчинків...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
ReadSeqReal('Введите '+n+' чисел:',n)
.Select(y->Abs(y)<=2?Abs(y):0.5).Max.Println
end.