Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
tany19821
06.02.2022 06:52 •
Информатика
Сформировать массив из 15 произвольных чисел. определить максимальный и минимальный элементы массива, напечатать их значения и индексы
Показать ответ
Ответ:
sevi88
01.10.2020 16:54
Program z;
var a:array[1..15] of integer; max,min,i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=random(-10,10);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
write('Максимальный = ',max, ' Минимальный = ', min);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
daryakoryakovc
07.04.2022 00:35
Как составить рациональную программу получения из числа 0 числа 1024 и 500 с блок схемы...
SuperMax2003rus
15.08.2022 20:26
Будущее будущим, а кушать хочется всегда, поэтому коля отправился в местную молочную лавку. в 2084 году кефир в литровых пластиковых бутылках по a копеек за штуку и в литровых...
славик55
12.01.2023 10:14
Пример из повседневной жизни с линейными зависимостями...
кирилл2124
12.01.2023 10:14
Уменя есть три карандаша: жёлтый, зелёный и фиолетовый. назовите самый короткий и самый длинный из карандашей, если известно, что: а) фиолетовый карандаш короче жёлтого, а жёлтый...
Violettik2006
16.04.2022 12:52
Хелпми ребята странная задача...
ketkovalchuk
03.01.2023 21:19
Измениете блок-схему таким образом,чтобы она находила сумму произвольного количества чисел решите нужно...
LevMuronov
19.08.2020 09:11
Кто написал «кукольный cake-walk»? что послужило поводом для написания этогомузыкального произведения? ...
angelokfrimen
08.02.2021 15:28
21. he (not to see) his sister since last winter. 2. she (to buy) the new magazine every sunday. 3. my friend (to like) pies. 4. look! jane (to swim) across the river. 5. pete...
fearlessaliss
09.12.2020 18:12
20 . используя предложенные условные обозначения (значки), укажите допущенные ошибки в тексте. с правой стороны листа напишите предложения в исправленном виде. (1) однажды ко...
Z1439373
16.05.2022 04:56
Як називаються речовини(матеріали) які не взаємодіють з організмом(використовуються при створені протезів і штучних органів)(одне...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array[1..15] of integer; max,min,i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=random(-10,10);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
write('Максимальный = ',max, ' Минимальный = ', min);
end.