Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
эмсикалаш
03.01.2021 20:12 •
Информатика
Написать программу которая задает массив случайным образом и ищет минимальный элемент
Показать ответ
Ответ:
ivkov2003
04.10.2020 11:58
Const n=10;
var a:array[1..n] of integer;
min,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do
if a[i]<min then min:=a[i];
writeln('min = ',min);
end.
Пример:
26 23 27 25 35 8 40 17 43 23
min = 8
0,0
(0 оценок)
Популярные вопросы: Информатика
dimabeliu2016
01.01.2023 19:44
2. постройте графики функций: а) у=х; б) у=х3; в) у=-х на отрезке [-15; 15] с шагом 1 (совмещенные графики)...
Ольгаok
26.11.2021 07:27
Постройте график функции у=sin(x)/x на отрезке [-10; 10] с шагом 0,5...
aidafarhadova
08.03.2021 22:33
Сопоставьте хэш строки foxford с алгоритмом, с которого этот хэш был получен. 93f9ec535dd97131718c48c551d5f197 3b4185c9a8eb93cb8117e960bca9a55f10c633a178503123b6c82307655946f3...
Lunatuk
08.03.2021 22:33
Сколько байт потребуется для хранения 32 символа при 8 битком кодировании...
Snikers2018
07.06.2022 16:26
Автомат Строитель получает на вход шестизначное десятичное число. По полученному числу строится новое десятичное число по следующим правилам: 1 Вычисляются два числа —...
Chika200616
25.02.2022 13:52
Sport Art18 Name the sport!12.35470...
Viktoria1289
18.05.2023 01:30
По графику. Какое напряжение (В) на концах второго проводника, если сила тока 3А?...
Mariavvv
15.09.2022 16:53
16.Complete.Then listen and repeat...
Никита0088
17.09.2020 19:01
Определи разряд слов:четырёх,восемь,двоих,две,семеро,семь,один....
lizasereda05
27.11.2022 09:49
Одні з найдавніших організмів на Землі. 15 букв!...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array[1..n] of integer;
min,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do
if a[i]<min then min:=a[i];
writeln('min = ',min);
end.
Пример:
26 23 27 25 35 8 40 17 43 23
min = 8