Дан одномерный массив значения элементов которого вводят с клавиатуры. найти наименьший элемент массива и вывести новый массив, заполнив его данным значением.
212
227
Ответы на вопрос:
Const n = 13; var a: array[1..n] of integer; i,min: integer; begin write('заполните массив a(',n,'): '); for i: = 1 to n do read(a[i]); min: =1; for i: = 2 to n do if a[i]< a[min] then min: =i; writeln('min(a) = a[',min,'] = ',a[min]); for i: = 1 to n do begin a[i]: =a[min]; write(a[i],' ') end end.
// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin var a: =readarrinteger('вводите: ',readinteger('n=')); var m: =a.min; a.transform(x-> m); a.println end. пример n= 5 вводите: 13 8 -4 0 7 -4 -4 -4 -4 -4
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
butyuginap06qhe28.08.2020 13:39
-
alex2704515.08.2021 02:30
-
Анастасия18618623.12.2021 05:41
-
Mariafetisova129.03.2022 13:12
-
хах2410.06.2020 15:52
-
Анастасия20181108.03.2022 03:33
-
fariii04625.12.2020 16:20
-
наталья73203.06.2020 19:47
-
тимур61827.11.2021 02:47
-
katyunyakim12308.09.2022 07:35
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.