Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
bugrysheve
28.04.2022 09:22 •
Информатика
Напишите программу, которая в последовательности чисел определяет минимальное число.
Показать ответ
Ответ:
tibeck120
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 оценок)
Популярные вопросы: Информатика
naletova1974
12.04.2022 13:13
Входные данные Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 N ≤ 1000 . Выходные данные Программа...
KoCmiK11
06.09.2021 07:39
Ребяяята Я никогда не учила информатику, у меня ноль знаний. Объясните где эти задания нужно делать и как? И можно ли в интернете найти уже сделанное чем сможете...
myyllaas
07.05.2020 20:20
Создайте игру рыбка суть игры маленькая рыбка плавает в речке собираюсь корм проявляющий в случае порядке за каждым пойманный корм прибавляется одно очко Если ещё с другой элемент...
fernandic201011
09.12.2021 15:42
1)найти произведение всех элементов массива из 7 чисел 2)найти минимальный и максимальный элемент массива...
papa42
29.10.2022 23:36
Решить в 8-разрядных дополнительных кодах пример: 11 -21. ответ запишите в десятичной системе счисления....
sasha1027821
07.05.2023 23:35
Помагите по информатике...
Andrey5454
02.09.2021 06:39
Какая главная мысль стихотворения ,,сила воли,, с.михалков?...
NamaruC3
02.09.2021 06:39
Написать эссе или начать : только тот, кто сохранил в себе возможность во всякую минуту стать лицом к лицу со своей собственной душой, не отделяясь от неё никакими предубеждениями,...
llRosell
02.09.2021 06:39
Составьте в паре с однаклассником диалог папы римского и императора о том, кто из них должен обладать высшей властью на земле. придумайте аргументы обоих собеседников...
26090204A
02.09.2021 06:39
Составить три предложения на во временах present simple (настоящее простое(действие происходит регулярно) и present continyous (настоящее продолженное(действие происходит сейчас)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.