Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
vani2006
28.09.2021 20:22 •
Информатика
Создать программу, чтобы нашло максимальное отрицательное число кратное 2. заранее
Показать ответ
Ответ:
7Селестина
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 оценок)
Популярные вопросы: Информатика
azimovroma2018oyopk2
16.01.2020 19:35
Іменик до слова сибірський...
198206nh
08.12.2022 05:39
Система команд исполнителя вычислитель состоит из 2 команд которым присвоен номер один вычти 2 2 x 3 первая из них уменьшает число на 2 вторая увеличивает число в 3 раза при записи...
vedruss7881
08.12.2022 05:39
Написать программы решения следующих задач: 1. С клавиатуры вводится три целых числа. Вычислить их сумму, произведение и сумму квадратов отдельными действиями, присвоив полученные...
alua070707
19.01.2020 18:15
Написать программу определения x путём умножения переменной B на 5...
evabelova25
31.08.2021 23:15
Електронна версія вашого підручника з інформатики, включаючи текст, його форматування та малюнки, має довжину двійкового коду 36 389 062 байти. Скільки примірників таких підручників...
lilik03
22.12.2021 22:32
За час навчання у школі з 1 по 11 клас вам потрібно приблизно 175 підручників. Довжина двійкового коду електронної версії кожного з підручників складає приблизно 40 Мбайт. Обчисліть,...
yakubovmalik
27.07.2022 01:22
Як позначають початок і кінець шляху переміщення об єкту...
Ооггод
27.10.2021 10:39
Обчислити скільки байтів буде займати повідомлення Людина без друзів – що дерево без коріння . будь ласка...
LerikKerik123
22.03.2021 05:20
ДАЮ 35 Б ЗАПОЛНИТЬ КОЛОНКУ ПРИНЯТЬ/НЕ ПРИНЯТЬ ФОРМУЛАМИ В ЭКСЕЛ...
лейс1215
28.09.2021 17:50
Вычислите, используя формулу квадрата суммы, 71 в квадрате. заранее ....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.