Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
kino2011
04.04.2020 04:58 •
Информатика
1. ввести массив а[n] с клавиатуры. найти количество максимальных элементов. 2. ввести массив а[n] с клавиатуры. все отрицательные элементы заменить на ноль
Показать ответ
Ответ:
AlexSubbotin11
08.10.2020 20:09
PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!
№1
begin
var a:=ReadArrInteger(ReadInteger('n='));
Writeln('Кол-во максимальных элементов: ',a.Where(t->t=a.Max).Count)
end.
№2
begin
var a:=ReadArrInteger(ReadInteger('n='));
a.Transform(t->t<0 ? 0 : t); a.Println
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
daryalit1967
18.09.2020 17:48
Выполните следующие вычисления в программе. 1. Сложение чисел 105 и 5. 2. Вычитание чисел 50 и 15. 3. Произведение чисел 6 и (–8). 4. Деление чисел 81 на 9. 5....
kvashenko403
23.04.2020 16:04
НАДО ЗАПИСАТЬ НА ЯЗЫКЕ ПАЙТОНА ДА 10Б ...
эля779
25.10.2020 01:17
Представьте число 25 в двоичном виде в восьмибитовом представлении в формате целого без знака. 110011100100000011001...
MarGGoTV
14.10.2022 18:21
Какой размер у 16 цветного рисунка?...
EVETS1
18.10.2021 00:42
Определите объём 3 секунд видео с размерами кадра 1024х1024, глубиной цвета 10 бит, скоростью воспроизведения 40 кадров в секунду....
Kanesan
04.10.2021 08:10
X:=2y:=5∗xy:=y+2y:=y∗xy:=y+3y:=y∗xy:=y+4...
мая101
03.06.2021 20:21
Структура программы Задание 1 Вопрос: Установите соответствие между элементами схемы их номерами. Изображение: Укажите соответствие для всех 3 вариантов ответа:...
sasipomidorp01sct
18.05.2020 00:28
Нужно написать код: в игре 12 игроков. Их от 0 до 30-и ( могут повторяться). Напишите сами массив R(N). Найдите и индекс игроков с наименьшими и наибольшими . Нужно...
danilyakimov1
13.02.2020 16:07
1) С клавиатуры вводится четырёхзначное число. Вывести на экран все нечётные цифры этого числа. 2) Число А вводится с клавиатуры. Сколько цифр в числе А кратно...
verchek
16.02.2022 06:56
Напишите программу которая определяет сумму чётных цифр в числе. Программа получает на вход число. Количество цифр в числе не превышает 9. Программа должна вывести...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
№1
begin
var a:=ReadArrInteger(ReadInteger('n='));
Writeln('Кол-во максимальных элементов: ',a.Where(t->t=a.Max).Count)
end.
№2
begin
var a:=ReadArrInteger(ReadInteger('n='));
a.Transform(t->t<0 ? 0 : t); a.Println
end.