tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу поиска
Написать программу поиска минимального значения в массиве, вывести на экран минимальное значение и номер (индекс) этого значения.
Даша5391
1 08.09.2019 23:50
1
Ответы
lesya16146
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
wolf13131
28.09.2019 05:01
Развернутым некоторый язык содержит только трёхбуквенные слова, которые можно образовывать из букв его алфавита в любых комбинациях. известно, что словарный запас языка составляет...
Fura44
27.01.2021 18:05
исполнителем черепаха написать букву А по командам по типу поднять хвост опустить и тд за ответ ради бан...
57862327685
11.11.2020 20:26
Что это такое? Память Шина адреса Кулер для процессора?...
AAMB
11.11.2020 20:26
Напишите программу на задачу на...
olgazubok1
11.11.2020 20:26
Сколько существует различных наборов значений логических переменных x1, x2, ..x10, которые удовлетворяют всем перечисленным ниже условиям? (x1 ∧ ¬x2) ∨ (¬x1 ∧ x2) ∨ (x3 ∧ x4) ∨ (¬x3...
karinnka2002
21.09.2019 11:05
Даны два числа а и в. если число а больше числа в, то найти разность этих чисел, в противном случае куб суммы а=6.5, в=-4.18...
Dashon2000
21.09.2019 11:05
Запиши в ячейках, какая команда выполняетсякогда щелкнут повсегдаповторить 10идти 10шаговследующий костюмесли на краю, оттолкнутьсястиль вращения влево-вправоговорить в течение 1 секунд8...
Kennyssess
21.09.2019 11:05
Переведите из питона в паскаль a=int( f=list( s=0 for i in range(0, len(f),2): st=f[i]+f[i+1] if a not in st or b not in st: if st == bb : f[i+1]= a else: f[i+1]= b s=s+1 print(s)...
2007умник22837
21.09.2019 11:22
Переведите программу из питона в паскаль ...
Настя272724555257224
18.06.2019 22:00
Какое логическое выражение равносильно выражению ¬а λ (а v ¬с) 1) a λ ¬c 2) a v ¬c 3) ¬a λ ¬c 4) ¬a v ¬c , с объяснением...
Популярные вопросы
Ә) Бірінші күні - 31 адам |Екінші күні - ?, 12 адамга кемҮшінші күні - ? адам90...
1
Биологтердің мәліметтері бойынша елімізде сақталып қалған сұр айлардың саны Қырғызстанда...
3
(4x−2) 2 +(3x+1) 2 =25x 2 −3...
3
Прочитай грамматические основы предложений. О чем текст, в котором употреблены предложения...
1
Напишите ЭССЕ на тему : Над чем меня заставил задуматься роман Достоевского Идиот...
1
2| 236. Какая из пар чисел (3;1); (3;-1); (-3;1); (-3; -1)является решением системы...
3
ЦИТАТА Статья 7. При официальном исполнении Государственного гимна Российской Федерации...
2
Какая форма записи результата анализа правильная? A. (0,07±0,0057) % B. (0,0722±0,01)...
2
От чего зависит форма клюва у птиц...
1
Лабораторная работа по биологии изучение внешнего вида птица ответы...
3
// Внимание! Если программа не работает, обновите версию!
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