Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Lolycat
13.10.2021 21:27 •
Информатика
Паскаль вводится последовательность из n целых чисел. найти наибольшее из всех отрицательных чисел (без массива).
Показать ответ
Ответ:
Игорь2285
01.10.2020 22:49
Var
n, i, k, max: integer;
begin
readln(n);
for i := 1 to n do
begin
readln(k);
if ((k < 0) and ((max = 0) or (k > max))) then
max := k;
end;
writeln(max);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Babaev11
03.08.2020 01:11
Python дано целое число n. определите, есть ли в его записи хотя бы один ноль....
sprikutviktpria
26.04.2020 13:29
Фотографию размером 46 на 46 увеличили и по длине, и по ширине в 14 раз. какой информационный объём будет занимать новое изображение, если размер старого изображения был равен...
Oles1115
23.06.2022 19:49
Как и из чего делают микросхемы? опишите кратко, но подробно....
blinovaa
09.12.2022 19:08
Хабарламада 20 символ бар. Оны жазу үшін 16 символдық алфавит қолданылады. Хабарламаның ақпараттық көлемін бит өлшем бірлігінде анықта?...
aliina000
22.09.2020 08:05
Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 160 до 200 – рост учащихся выпускного класса. В баскетбольную команду берут тех, чей рост не менее...
FRIEND151
25.08.2022 23:31
Раздели текст на предложения. Вернулся спускаемый аппарат на казахстанскую землю вер-толёт полетел за космонавтами их привезли в Караганды, вгостиницу «Космонавт» она была специально...
милка1523
05.01.2021 04:20
5) look at the photos of Astana and Almaty. Write your opinions about the cities....
nlenp6635Alena0lo
03.04.2022 02:36
2-тапсырма. Қанатты сөздерді жаз. Осы сөздердің бірін тақырып ретінде алып, ой бөлісіңдер.Инемен құдық қазғандай қиын да күрделі, орасан қажыр-қайратпен ерік-жігерді талап ететін...
KOTE422
22.08.2022 18:31
Натрій нітрат масою 6 г розчинили у воді масою 194 г. Яка масова частка натрій нітратув одержаному розчині?...
kri2221
14.03.2023 09:53
3-тапсырма. Күз мезгілінің жақсы және жаман жақтарын анықтап, кестеге жаз. КҮЗ МЕЗГІЛІНІҢЖАҚСЫ ЖАҚТАРЫ (+)ЖАМАН ЖАҚТАРЫ (-)1)1)2)2)3)3)4)4)5)5) за лучший ответ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n, i, k, max: integer;
begin
readln(n);
for i := 1 to n do
begin
readln(k);
if ((k < 0) and ((max = 0) or (k > max))) then
max := k;
end;
writeln(max);
end.