Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
kikl33
15.09.2020 03:49 •
Информатика
60 , паскаль! дан массив из 20 целых чисел. найти минимальный элемент массива.
Показать ответ
Ответ:
AkvaH2O
24.09.2020 23:26
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
Writeln('min=',ArrRandom(20,10,99).Println.Min)
end.
Тестовое решение:
31 53 75 18 93 22 40 30 37 14 24 23 92 64 65 89 41 88 58 38
min=14
0,0
(0 оценок)
Ответ:
кристина2155
24.09.2020 23:26
Var a:array[1..20] of integer;
i,min:integer;
begin
min:=100;
for i:=1 to 20 do begin
a[i]:=random[min];
write(a[i],' ');
if min<a[i] then min:=a[i];
end;
writeln();
write('min = ', min);
readln();
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Дуся003
28.08.2021 09:20
Написать 3 программы. Каждая программа должна подсчитывать сумму чисел от 10 до 20. Одна программа должна быть сделана через цикл While, вторая - через цикл Repeat, третья -...
Oksana321
12.03.2020 18:15
Определите значение переменных X и Y после выполнения фрагмента алгоритма...
PORCH1488
30.01.2021 07:05
Буду очень благодарна.Задача: Бобриха Пам сделала себе бусы. Но когда она закончила работу, то засомневалась, что ожерелье сомкнётся вокруг её шеи. Числа указывают длины отдельных...
Marksensei
27.12.2020 20:53
Необходимо нарисовать 23 одинаковых вертикальных палочек. Дан алгоритм. Выбери верный ответ.использовать Чертежникалг черточки11начсместиться в точку (-4,3)нц разопустить перосместиться...
Амина020202
25.04.2022 07:31
Что будет выполнено после запуска программы...
potato1999
26.08.2022 05:21
Всемье пять человек: муж, жена, их сын, сестра мужа и отец жены. их профессии — инженер, юрист, слесарь, учитель и . известно, что юрист и учитель — не кровные родственники....
D202
26.08.2022 05:21
Переведите в двоичную систему счисления десятичные числа а)998 б) 653...
елена1810
22.08.2020 17:46
Сообщение «Логарифмом положительного числа b по снованию https://ykl-shk.azureedge.net/goods/ymk/algebra/work5/theory/10/1.gifназывается показатель степени с, в которую надо...
KNSVAL
10.05.2020 14:48
+=театр книга+книга+книга=наука заменить буквы на цифры...
bWn
22.03.2022 07:59
Составьте систему команд Player предназначенного для прослушивания цифровой музыки. Какими можете отдать ему команду?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
Writeln('min=',ArrRandom(20,10,99).Println.Min)
end.
Тестовое решение:
31 53 75 18 93 22 40 30 37 14 24 23 92 64 65 89 41 88 58 38
min=14
i,min:integer;
begin
min:=100;
for i:=1 to 20 do begin
a[i]:=random[min];
write(a[i],' ');
if min<a[i] then min:=a[i];
end;
writeln();
write('min = ', min);
readln();
end.