Перепишите программу под pascal using system; namespace consoleapplication { class class { static int [] input () { console.writeline("введите размерность массива"); int n=int.parse(console.; int []a=new int[n]; for (int i = 0; i < n; ++i) { console.write("a[{0}]= ", i); a[i]=int.parse(console.; } return a; } static int max(int[] a) { int max=a[0]; for (int i = 1; i < a.length; ++i) if (a[i] > max) max=a[i]; return max; } static void main() { int[] myarray=input(); int max=max(myarray); int kol=0; for (int i=0; i if (myarray[i]==max)++kol; console.writeline("количество максимальных элементов = "+kol); } } }
113
472
Ответы на вопрос:
Var a: array[1..10000] of integer; n,i,max,k: integer; begin readln(n); for i: =1 to n do read(a[i]); max: =a[1]; k: =1; for i: =2 to n do begin if a[i]> max then begin max: =a[i]; k: =1; end else if a[i]=max then k: =k+1; end; writeln('k = ',k); end. пример: 61 2 3 2 3 3k = 3
добрый вечер, самый оптимальный вариант использовать алгоритм де-йкстры (при поиски пишите без " - "), по правилам сообщества ссылки оставлять не могу, но на вики довольно хорошо расписано как его реализовать. там же есть и псевдокод. думаю если поищите в интернете найдете реализацию на pascal.
буду за отметку "лучший ответ"
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
srente29.11.2020 03:50
-
veronikamihailova3711.07.2021 12:51
-
gadzila123627.05.2020 01:21
-
lov3snake01.01.2023 10:36
-
maksimkakravchenko29.06.2021 14:28
-
annakivilyova15.06.2021 18:25
-
PoLiNaPaSeKo04.05.2020 15:16
-
karenkar10806.10.2022 14:27
-
kirill67r24.02.2022 02:51
-
Валерия344502.05.2020 22:28
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.