Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
апельсинкабарбариска
03.03.2020 12:42 •
Информатика
Написать программу поиска минимального значения в массиве, вывести на экран минимальное значение и номер (индекс) этого значения.
Показать ответ
Ответ:
дагаыоукм
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 оценок)
Популярные вопросы: Информатика
Masya1415
13.04.2021 07:37
А1. Действия человека с информацией, укажите лишнее: 1. чтение газеты 2. наблюдение 3. решение примера по математике 4. приготовление обеда А2. С какого органа чувств...
DMN1111
14.12.2022 22:36
1. Среда программирования Scratch 2.0 когда выпущена? * 2009 год2013 год2019 год2005 год2. При создании новой программы применяется палитра блоков, расположенная в...
maslyuk05
23.05.2023 16:17
1. Құжат ішіндегі орынға гиперсілтеме орнату жолын көрсетіңіз.1. 2. Тышканнның оң жақ батырмасын басу;3. 4. 5. 6. OK батырмасын басу....
gangsta288
17.05.2022 16:26
построить таблицу истинности B∨A&C...
transformer56
26.02.2021 22:05
2. Составьте программу рисования прямоугольного треугольника катеты которого совпадают с осями координат. Медианапроведенная прямого угла, заканчивается в точкекоординатами...
Andezia
10.05.2022 17:53
. Задание. Заполнить трассировочную таблицу. f1 = 1; f2 = 1; n = 10; i = 0while i n - 2: sum = f1 + f2 f1 = f2 f2 = sum i = i + 1print(f2)Начальные...
ffghh1gfdd
22.06.2020 07:27
Постройте таблицу истинности для логического выражения (AVB)&(-BVA)...
marija01021
04.02.2023 06:25
Используйте команду: сместиться на вектор...
rembo15
01.04.2020 17:31
Виконати проєкт «Гра Мавпеня» (фото зошита і скрипта зі сценою здати у Classroom) Скласти проєкт, в якому виконавець Мавпеня рухається по сцені за до кнопок управліннякурсором...
анарочка555
08.06.2023 04:13
Кратко описать город новгород в древней руси...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
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