Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
NeGaTiV1488228
08.11.2020 17:01 •
Информатика
Составить программу поиска наименьшего значения среди четырёх чисел
Показать ответ
Ответ:
leravolk399
03.10.2020 01:44
Var ar:array[1..4] of integer;
i,k,min:integer;
begin;
min:=2147483647;
for i:=1 to 4 do
begin;
readln(ar[i]);
if ar[i]<min then min:=ar[i];
end;
writeln(min);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ponchikelo
17.10.2021 00:38
Составьте программу которая позволяет ввести с клавиатуры две строки и определяет равны ли эти строки между собой, если не равны выводит эти строки в алфавитном...
Саша15e
15.06.2022 12:24
Паскаль 2. ввести номер этажа, на котором вы живете, программа должна ответить я живу на … этаже (вместо пропуска должен отобразиться этаж, который ввели) 3. при...
Hyina
28.03.2023 14:16
Решить по информатике надо зашифровать предложенное слово....
gnevasheva1965
11.12.2022 01:00
Дано вещественное число A . Вычислить f(A) , если f(x)=0 , при x0 f(x)=x ; при 0...
mixailoborin0
28.06.2021 00:18
Каким образом делается перевод вещественных чисел из десятичной в двоичною и наооборот...
MrNikitkahelp
08.02.2021 13:51
Какое расширение имеют файлы редактора WORD?...
артур614
12.02.2020 06:12
Задание 4.17. Создание списков1. В текстовом процессоре создайте новый документ.2. Создайте многоуровневый список «Программное обеспечениесовременного компьютера»...
sofialesiuk
17.06.2021 05:07
Как найти среднюю оценку учеников, которые любят алгебру в excel. Заранее...
accolic
10.09.2021 16:25
сделайте это в пайтане, или в онлайн пайтане. 12 номер делать...
диля1234567асем
29.01.2021 12:55
Написать и отладить программу по следующему условию: Сформировать квадратную матрицу порядка N по правилу: A[i, j]=sin((i 2 -j 2 )/N) и подсчитать количество положительных...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,k,min:integer;
begin;
min:=2147483647;
for i:=1 to 4 do
begin;
readln(ar[i]);
if ar[i]<min then min:=ar[i];
end;
writeln(min);
end.