Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
olyaolya22
20.09.2021 10:15 •
Информатика
Написать программу поиска минимального значения в массиве, вывести на экран минимальное значение и номер (индекс) этого значения.
Ответ:
Lenaaaa111
20.08.2020 23:43
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var i:=a.IndexMin;
Writeln('Минимальный элемент ',a[i],' имеет индекс ',i+1)
end.
Пример
n= 15
66 -91 75 27 7 -95 96 48 -35 77 49 71 -13 25 -8
Минимальный элемент -95 имеет индекс 6
0,0
(0 оценок)
Популярные вопросы: Информатика
далекоотсолнца
19.03.2023 22:15
Число 10.запиши данное число в , восьмеричной и шестнадцатеричной системе счисления)...
sdiana1605
19.03.2023 22:15
Впервый день катер проплыл х км,во второй день в 2 раза больше,чем первый а в третий на 5км меньше,чем в первый.сколько всего км проплыл катер за 3 дня. нужно !...
AMAYA000
12.08.2022 19:06
Мне.только решите правильно вас! 1)определи основание числа [tex]172_{8}[/tex] 2)переведи число [tex]1032_{8}[/tex] в десятичную систему счисления. 3)запиши число [tex]7 bc_{16}[/tex]...
нэла1
07.12.2022 16:02
Ббооотт ЗнАННяя ГГгрАММ - @united brai nly (ЕЕ ПррооОбЕЕеоОо)...
YourKarma396
07.06.2023 11:05
БО ЗНнНиияяЯ тТТЕЕеЛЛлеЕеггГРРаАм - @united brai nly (БбззЗ ПппрРоБбБлвв)...
dkrechetov85
18.04.2021 13:12
ооо ЗзИИиЯЯЯ тТЕеЛЛЕЕРА - @united brai nly (ББз пПпооББЕеллЛО)...
anastassia7890
25.05.2021 09:19
Написать подпрограмму, вычисляющую значение y: y=3x^2+4x-2 и вывести на экран значения y для каждого значения x в диапазоне от 10 до 25...
Саняша69
14.02.2023 05:36
Запешите выражения и вычесли их значения. 1)сумма чисел 63 и 12 уменьшить в 3 раза. 2)разность чисел 39 и 18 умножить на 4. 3) из числа 750 вычесть частное чисел 12 и3. 4)к...
lenaivashenko16
20.05.2023 16:29
План на тему природная зона в которой я живу...
shlama283
20.05.2023 16:29
Как оплачивалась деятельность должностных лиц в колониях...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var i:=a.IndexMin;
Writeln('Минимальный элемент ',a[i],' имеет индекс ',i+1)
end.
Пример
n= 15
66 -91 75 27 7 -95 96 48 -35 77 49 71 -13 25 -8
Минимальный элемент -95 имеет индекс 6