Ответы на вопрос:
Begin var n: =readinteger(); var ar: =readarrinteger(n); write(ar.where(x-> x=ar.max).count); end.
Популярно: Информатика
-
1)Выделите три ячейки и добавьте новые ячейки. Сколько ячеек...
ollolinda21321.03.2023 16:46 -
не успеваююю решите задачи №1. Файл размером 1500 Кбайт передаётся...
лунтик7302.10.2022 05:17 -
Составьте кроссворд на темы: Технология создания сайта, язык...
Justacookie200328.07.2022 19:07 -
Какие правила нужно соблюдать при работе с программой SketchUp...
Витуся00724.03.2022 01:35 -
Составить программу которая выведет на экран значение функции...
mirvera200728.02.2021 03:03 -
по информатике Во Расскажите о проводимых в Узбекистане турнирах...
ilgam200001.05.2020 02:26 -
Решите задачи по информатике, 7 класс 1) Каждый символ в Unicode...
ahmetovalim15.01.2021 05:59 -
Напишите программу, которая считывает с консоли числа (по одному...
ivandawidov01.03.2021 22:57 -
Выведите в консоль все числа от 1000 до 0 в обратном порядке....
4508728.04.2022 10:40 -
Растровая графика — самая интересная тема в курсе школьной информатики....
медвежонок4128.11.2021 20:00