Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
DVazovskaya
15.04.2023 05:25 •
Информатика
Создать программу, чтобы нашло максимальное отрицательное число кратное 2. заранее
Показать ответ
Ответ:
кристина19841016
05.10.2020 13:46
Program z123;
var i,a,n,c:integer;
begin
c:=0;
write ('введите, сколько чисел будет всего');
readln (n);
for i:=1 to n do
begin
readln (a);
if a mod 2 = 0 then
if a<c then c:=a;
end;
write ('ваше число ', c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Игорь5002
01.08.2022 21:06
Постройте диаграмму, основываясь на данные в таблице. ...
Alexa2608
05.09.2020 13:06
Ниже приведена база данных. Определите одно имя поля базы данных. ВЕРНО/НЕВЕРНО...
Ангелинка2007
23.06.2021 11:16
Задан некоторый список A содержащий целые числа: A=[3,2,6,7,6,-8]. Используя инструкцию while разработать программу, которая вычисляет произведение элементов списка....
PlizHelpMee
19.09.2020 13:02
В 2010 году в результате лесных пожаров в Российской Федерации сгорело 2,1 млн гектаров селов, погибло более 60 человек и тысячи людей лишились крова. Как ты думаешь,...
мамаТВ
19.09.2020 13:02
Напишите аннотацию к Судьбе человека Шолохов...
ololoololoev1
19.09.2020 13:02
У прямокутній трапеції більша основа і бічна сторона дорівнюють по 10N см. Знайдіть висоту трапеції,якщо її менша основа дорівнює 2N см....
oliver9999
19.09.2020 13:02
решить два примера 1)17% его равны 102 2)7% его равны 4.9...
Уля220104
25.02.2023 09:16
решить задачу с уравненийпешеход проходит расстояние от села Счастливое до села Весёлое за 2 часа а велосипедист За 4,8 часа Найдите скорость велосипедиста и скорость...
Dimatrubilov
25.02.2023 09:16
Понятие «поэзия серебряного века». Ренессанс или декаданс?...
мышка72
25.02.2023 09:16
Укажи, какие глаголы являются возвратными, а какие — нет. Успокоиться. Да Нет Слушаться. Нет Да...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,a,n,c:integer;
begin
c:=0;
write ('введите, сколько чисел будет всего');
readln (n);
for i:=1 to n do
begin
readln (a);
if a mod 2 = 0 then
if a<c then c:=a;
end;
write ('ваше число ', c);
end.