Даны две ,нужно написать программу(паскаль). распишите свои действия,ничего не понимаю.кто понимает-объясните,. 1.найти последнее вхождение наименьшего элеманта массива. 2.найти количество элементов равных наибольшему элементу массива.
110
406
Ответы на вопрос:
1) const n = 33; var a: array[1..n] of integer; i,m: integer; begin {заполнение массива} for i: = 1 to n do begin a[i]: =random(21)-10; write(a[i],' ') end; writeln; {поиск минимального элемента} m: =1; for i: = 2 to n do if a[i]< =a[m] then m: =i; writeln('min = a[',m,'] = ',a[m]); end. пример: 6 0 -4 10 2 -4 -3 -9 10 -5 1 0 -8 2 2 9 -3 -6 8 10 -6 -9 9 -2 -6 2 -1 -2 6 6 -2 -3 -4 min = a[22] = -9 2) const n = 33; var a: array[1..n] of integer; i,m,k: integer; begin {заполнение массива} for i: = 1 to n do begin a[i]: =random(21)-10; write(a[i],' ') end; writeln; {поиск наибольшего элемента} m: =a[1]; for i: = 2 to n do if a[i] > m then m: =a[i]; {поиск кол-ва максимальных элементов} k: =0; for i: = 1 to n do if a[i] = m then k: =k+1; writeln('k_max = ',k) end. пример: -10 3 10 -10 1 3 -9 -1 10 0 -10 3 -10 10 -4 -2 -8 3 10 -10 -9 3 -1 -2 9 -5 -6 -5 -5 -5 2 0 8 k_max = 4
// pascalabc.net 3.2, сборка 1411 от 23.03.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',10); a.println; writeln('последнее вхождение минимального элемента: ',a.lastindexmin+1); var mx: =a.max; writeln('количество элементов, равных максимальному: ', a.where(x-> x=mx).count) end. пример n= 20 10 10 -10 2 -8 9 8 -8 4 -5 10 -9 9 -2 1 7 -4 9 -10 7 последнее вхождение минимального элемента: 19 количество элементов, равных максимальному: 3 пояснения arrrandom(readinteger('n=',10); запрашиваем количество элементов n в массиве, а затем создаем целочисленный массив заполняем его случайными целыми числами на интервала [-10; 10] a.println; выводим содержимое массива а на монитор a.lastindexmin+1 находим в массиве a позицию последнего минимального элемента. счет позиций идет с нуля, поэтому добавляем единицу. var mx: =a.max; находим в массиве а максимальный элемент и запоминаем его в mx a.where(x-> x=mx).count) выбираем из массива а элементы, равные mx и подсчитываем их количество
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
santilo130.03.2020 23:31
-
Roni1337215521.06.2023 09:39
-
s107296616.04.2020 08:51
-
svashalol06.12.2020 01:05
-
italyyyy23.06.2022 05:47
-
rlynx67508.08.2020 12:56
-
virina05919.05.2020 05:57
-
Tsenenks27.04.2022 11:39
-
mayorovagelya24.02.2023 22:11
-
Mysicista12.02.2022 03:12
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.