Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
мадя21
21.09.2021 15:18 •
Информатика
Написать программу в паскале: в массиве из n элементов найти максимальный из отрицательных элементов массива.
Показать ответ
Ответ:
али544
08.10.2020 07:00
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
Println('Максимальный=',ReadArrInteger(ReadInteger('n->')).Where(t->t<0).Max)
end.
Пример:
n-> 5
-7 8 -6 4 -1
Максимальный= -1
0,0
(0 оценок)
Популярные вопросы: Информатика
alexbarbos75
11.03.2020 11:47
Какое устройство компьютера моделирует мышление человека? -процессор -оперативная память -дисковод -внешняя память -винчестер...
alinamalinavkjkjh
30.09.2021 15:24
Вывести вторую цифру терёхзначного числа...
AnutaBelova1524
10.12.2021 22:58
Как пишется эти слов в мн.ч bike,leaf,box,bus,lady,tomato,foot,jam,mouse,scart....
кракодиллох
10.12.2021 22:58
Сочинение в стиле нравоучительной статьи о лживости ....
Аня20181
10.12.2021 22:58
Как и чему учили с детства феодалы своих детей...
ykim1337
10.12.2021 22:58
При каком значении переменной дробь (2x^2+3x)/(x-4) равна нулю...
newsosnovskiymp06yuf
10.12.2021 22:58
Содинаковой высоты упали на землю медный и железный шары одинаковой массы . какой из шаров при ударе нагрелся до более высокой температуры...
sempai1
10.12.2021 22:58
Водной теплице собрали ,38 кг помидоров, в другой -50 кг. все эти помидоры разложили в ящики, по 8 кг в каждый. сколько таких ящиков потребовалось.? измени числа так, чтобы...
AmeliandeAmeliande
10.12.2021 22:58
Почему вечер, описываемый к. паустовским , был совершенно особенный...
Ekirakosyan12
10.12.2021 22:58
Точка с лежит на прямой ав.известно что ав 19 дм и вс 11 дм найдите длину ас...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Версия 3.3, сборка 1634 (14.02.2018)
begin
Println('Максимальный=',ReadArrInteger(ReadInteger('n->')).Where(t->t<0).Max)
end.
Пример:
n-> 5
-7 8 -6 4 -1
Максимальный= -1