Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
насьть
07.01.2021 22:14 •
Информатика
Дан массив целых чисел, состоящий из 30 элементов. заполните его датчиком случайных чисел. найти: минимальный элемент массива и его порядковый номер.
Ответ:
yuyornevzkoxkdhd543
03.10.2020 10:31
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ArrRandom(30,-20,20); a.Println;
Writeln('Минимум: A[',a.IndexMin+1,']=',a.Min)
end.
Тестовое решение:
8 20 2 2 -6 -11 7 20 -15 1 15 8 -1 13 -3 1 5 6 -6 -5 -2 13 -7 -7 -3 4 0 -7 10 5
Минимум: A[9]=-15
0,0
(0 оценок)
Популярные вопросы: Информатика
mashazygmangovich
21.09.2022 21:23
Какое десятичное число соответствует двоичному числу а а=10001001...
NikoBellic99
22.01.2022 02:00
написать блок схему и программу к ней,умоляю вас,. : клавиатуры вводится два числа являющихся стороны прямоугольника с логических переменной доказать что площадь этого прямоугольника...
SergeyPomoshnik
16.02.2021 09:10
Представьте выражение в линейной форме: [tex]2 \frac{a}{b} + \frac{4a + b}{2} + 12[/tex]...
timdenir69
05.12.2020 18:27
Срешением по pascal ! , pascal abc...
hamidullinelnar
07.05.2021 05:59
ответьте н один ! 1) отчего зависит цель ! и побыстрее !...
оаосов
22.09.2021 10:00
Принцип агрегирования предусматривает... а) соединение различных компонентов в единую систему б) построение единой модели системы в) укрупнение блоков путем замены нескольких блоков...
рррр194
29.06.2022 03:45
Вопрос Какого типа начертания текста нет в текстовом процессоре Word? Укажите правильный вариант ответа: Подчеркнутый Наклонный Курсив Полужирный побыстрее...
Diana221648
10.11.2022 10:36
Вычисление катета прямоугольного треугольника. (паскаль)...
zlatasidorowa
03.12.2020 07:49
КОНТРОЛЬНАЯ РАБОТА ПО МАТЕМАТИКЕ...
данила0625
03.12.2020 07:49
8. Измерь стороны многоугольников. Вычисли их периметр. ! ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
var a:=ArrRandom(30,-20,20); a.Println;
Writeln('Минимум: A[',a.IndexMin+1,']=',a.Min)
end.
Тестовое решение:
8 20 2 2 -6 -11 7 20 -15 1 15 8 -1 13 -3 1 5 6 -6 -5 -2 13 -7 -7 -3 4 0 -7 10 5
Минимум: A[9]=-15