Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Ala012447
24.08.2022 21:45 •
Информатика
Найдите количество превышающих 4 в паскале
Показать ответ
Ответ:
vvozmisheva2
03.08.2020 12:21
Begin
var a:=ArrRandom(10, -10,10);
a.Println();
writeln(a.Where(x->x>4).Count);
end.
0,0
(0 оценок)
Ответ:
minnehanow
03.08.2020 12:21
// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadArrInteger(ReadInteger('n=')).Where(x->x>4).Count)
end.
Пример
n= 5
3 7 0 -5 9
2
0,0
(0 оценок)
Популярные вопросы: Информатика
Екатерина270604
18.06.2021 16:16
Написать программу которая определяет максимальное значение 2 вещественных чисел в pascal...
viktoriafedorip0a2an
04.03.2023 08:54
1) Бот печатает «ноль» указанное пользователем количество раз. 2). Бот ввести два числа (a и n) и возвращает a в степени n. 3) Бот предлагает человеку ввести слово, после...
stoyanovadsДарья
17.10.2020 08:13
Собери слова слова в правильном порядке, чточилось предложение. Запиши это предложение в(ке, чтобы полуние в тетрадь,в презентациюнажимаемКомандуВидеоменюдобавитьВставкаВ...
BrainNotBrain
16.09.2021 18:45
Напишите программу решающую следующую задачу В ПРОГРАММЕ КУМИР . Дано целое число. Если оно является положительным, то вычесть из него 8; в противном случае прибавить к нему...
nastgoliakova
09.07.2021 14:33
Сделайте Природный комплекс «хвойный лес» расположен в: А: жарком поясе Б: южном субарктическом поясе В: северном холодном поясе Г: северном умеренном поясе...
Wensansys
09.07.2021 14:33
ЗАДАЧИ ПО ФИЗИКЕ 9 КЛАСС, Решение задач Импульс тела Импульс системы тел. Закон сохранения импульса(ЗСИ) 1. Мальчик ударил мяч массой 200 г ногой. После удара, мяч приобрел...
anyta03
02.05.2020 15:56
Не выполняя сложения чисел, проверьте делится ли сумма чисел 34 + 51 на 17? * Делится, т.к. 34:17 и 51:17 Не делится, т.к. 34 делится на 17, а 51 не делится на 17 Нельзя ответить...
КОТ20052005Кот
21.09.2021 11:47
задания не сложные 1.Начертить треугольник АВС Построить вектор :а)ВА+АС ; в)СА-СВ ; с)ВС+ВА 2.Выбрать произвольно два вектора .обозначить каждый одной маленькой буквой и...
Kotya894
21.09.2021 11:47
Какой объём газа (у. н.) образуется при взаимодействии 130 г цинка с раствором серной кислоты?...
Killkor3000
03.04.2020 14:36
Алтынай өз жобасын принтерде баспаға шығармақшы болды, бірақ хабарлама пайда болды. Көмек керек...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:=ArrRandom(10, -10,10);
a.Println();
writeln(a.Where(x->x>4).Count);
end.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadArrInteger(ReadInteger('n=')).Where(x->x>4).Count)
end.
Пример
n= 5
3 7 0 -5 9
2