Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
klemeshova1989
27.08.2022 14:31 •
Информатика
Напишите программу, которая в последовательности чисел определяет минимальное число.
Показать ответ
Ответ:
666Лисица666
13.08.2020 19:32
Uses crt;
var a: array[1..10000] of Integer;
n, i, min: Integer;
Begin
readln(n);
for i := 1 to n do read(a[i]);
min := a[1];
for i := 2 to n do
if a[i] < min then min := a[i];
writeln(min);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Reek5657
15.12.2022 00:29
. на питоне Игра с нулями и единицами Ограничение по времени: 1 секунда Ограничение по памяти: 256 мегабайт Что еще мы вам не рассказали про строки из нулей и единиц? :) Оказывается,...
Kxmm
24.06.2020 11:49
2. С клавиатуры вводятся натуральные числа. Конец ввода чисел – 0, в подсчет количества не входит. Вычислить и вывести на экран сумму только двузначных четных чисел. 3. Дано...
Аида524
01.09.2020 13:33
инфа 8 кл определите значение переменной s и i после выполнения фрагмента программы:...
UzZzeR
04.08.2021 14:50
39 ! 6 класс! вынесите общий множитель за скобки со знаком минус. пример: а) 4*52-4*(-95)=(-4)*(-52-95) б) -16*17-16*18 в) 49*19-19*91 г) -88*35-77*35 д) 73*37-73*73 е) -57*33+48*33...
лалка136
04.08.2021 14:50
Морская даль во мгле туманной; там парус тонет, как в дыму, а волны в злобе постоянной бегут к прибрежью моему. из них одной, избранной мною, навстречу пристально гляжу и за...
akkusha1
04.08.2021 14:50
Казак халкында аска байланысты кандай макал бар?...
polosa48rus
04.08.2021 14:50
Тайға таңба басқандай сөзінің мағынасы...
kanaev07
04.08.2021 14:50
Добавьте запятые - предпочтение отдавалось скалам сложенным из пород теплоизоляционными и водоупорными свойствами....
gilfanovar01
04.08.2021 14:50
Ачто по - белоруски называется нагавiцы...
lenahalezina
04.08.2021 14:50
Як розрізати прямокутний пиріг на 4 або 8 рівних частин. на скільки рівних частин - на 4 чи 8- слід розрізати пиріг,щоб один шматочок був більшим?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a: array[1..10000] of Integer;
n, i, min: Integer;
Begin
readln(n);
for i := 1 to n do read(a[i]);
min := a[1];
for i := 2 to n do
if a[i] < min then min := a[i];
writeln(min);
End.