Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
narek2006
11.05.2022 13:33 •
Информатика
Нужно найти минимальное число из массива и вывести его на экран. массив a: array [1..5] of integer;
Показать ответ
Ответ:
Danil02020202
07.07.2020 14:48
Var
a: array [1..5] of integer;
i: byte;
k: integer := Integer.MaxValue;
begin
for i := 1 to 5 do
readln(a[i]);
for i := 1 to 5 do
k := Min(k, a[i]);
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lЕвгешкаl
10.01.2023 21:26
Сколько цифр 6 будет содержать результат вычислений 499–686+34310 в семеричной системе счисления...
Lartenok
04.02.2021 04:34
Какому логическому выражению соответствует следующая таблица истинности ...
GreenExtreme5995
12.10.2020 12:26
ОСТАЛОСЬ 13 МИН ЭТО СОР...
nastyshanastia1
21.01.2021 19:37
Когда в срезе отсутствует первый символ, он равен нулю. К чему приравнивается индекс при отсутствии последнего символа?...
Abdusalamova2004
03.11.2021 09:31
Посчитать произведение элементов в непустом файле целых чисел (file of integer). дописать найденное значение в конец файла....
Amarcy
25.06.2020 13:38
1) скорость передачи данных через adsl-соединение равна 1024000 бит/c. передача файла через данное соединение заняла 5 секунд. определите размер файла в килобайтах. 2) информационное...
Мұғалімpvl
18.10.2020 07:19
Пассажир прибыл на станцию Дровино в 5.00. Определить наиболее раннее время, когда пассажир кажется на станции Красное....
pipidonkamnevce
01.02.2023 04:30
Дан одномерный массив. Запиши верный ответ. −18 31 0 −4 3 14 Значение элемента массива — −18. Индекс элемента массива — ?...
ksenaf
12.09.2021 23:43
В магазине продаются ювелирные украшения трёх видов, изготовленные из четырёх материалов. На гистограмме показано количество продукции, на круговой диаграмме - распределение материалов,...
Danothka
15.05.2020 23:42
Ребята Вообще не втупляю 1. Даны два числа. Вывести на экран те из них, которые являются трёхзначными и целыми. 3.. Вычислить и вывести произведение квадратов чисел, кратных трём,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array [1..5] of integer;
i: byte;
k: integer := Integer.MaxValue;
begin
for i := 1 to 5 do
readln(a[i]);
for i := 1 to 5 do
k := Min(k, a[i]);
writeln(k);
end.