Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
dance7
05.06.2020 01:07 •
Информатика
Дано n чисел найдите минимальное из них
Показать ответ
Ответ:
szelenkooz1uqs
08.10.2020 05:12
Uses crt;
var x,i,n,min;integer;
begin
readln(n);
read(x);
min:x;
for i:1 to n-1 do
begin
readln(x);
if min > x then min:x;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Анастасия1708035
18.07.2022 01:10
Паскаль! найти сумму не превышающую 50-ти квадратов натуральных !...
vika2063
17.01.2022 12:02
Help 1. Как изменилось название Австрии в 1804 г.? Какие три области лежали в основе формирования государства? Что их связывало? 2. Как государство влияло на экономическое...
Enweys
17.01.2022 12:02
Task 3 Use of English (marks 4) aswer questions: OTBeThe Ha Bonpocul Yes/No (qanu HET)The story is about the Lion and the MouseThey are going to the forest3. The story...
инглишер
02.07.2021 00:53
Марина Цветаева впервые прочитала “Капитанскую дочку“ в семилетнем возрасте,и книга стала для нее “вечной“:хотелось перечитывать ее постоянно. Нужен синтаксичечкий разбор...
Lerka2004love
02.07.2021 00:53
Напишите can или can t + слова из рамки...
nickita123098vp0a1b8
04.02.2023 15:19
(а - 3)( а + 5)х = 8(а - 3) для всех значений параметра а. с решением...
den4ik143
14.04.2021 09:19
Как и когда возникли названия нот?...
натахасуслик
20.12.2021 05:47
Як потрібно з єднати три однакові резистори опором по 4 Ом, щоб отримати ділянку електричного кола з опором 6 Ом? Розв язок. ДУЖЕ ПОТРІБНО...
охохохо1
20.12.2021 05:47
2. Второе название Междуречья: А) Месопотамия б) Аккад в) Двуречье г) Шумер * АБВГ3. Первыми жителями Двуречья были: А) персы б шумеры) в) финикийцы г) египтяне * АБВГ4....
agulmira62
20.12.2021 05:47
«Әлемге ортақ жаһандық мәселелер, олардың туындау себептері» деген тақырыпта ойтолғаужазыңдар. сөзТезірек істеп беріңдерші Өтірік бәрнәрсе жазбай, шын істеп беріңдерші...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x,i,n,min;integer;
begin
readln(n);
read(x);
min:x;
for i:1 to n-1 do
begin
readln(x);
if min > x then min:x;
end.