Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Dhshssh
05.11.2020 08:06 •
Информатика
Дан массив [1..n] и число m. найдите количество элементов больше числа l
Показать ответ
Ответ:
AlexWhite472
07.10.2020 08:55
Var
m,n,k,i:integer;
a:array[1..1000] of integer;
begin
write('Write size array: '); readln(n);
write('Write m: '); readln(m);
k:=0;
for i:=1 to n do
begin
read(a[i]);
if a[i]>m
then inc(k);
end;
writeln(k);
readln;
readln
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
magoomamedzadeh
19.05.2022 01:25
Какие ссылки в формулах называются относительными...
alina20021982
19.05.2022 01:25
Определите, какое из указанных имен файлов удовлетворяет маске h*a*p? .p? * выберите один ответ: 1)hairpy.ppt 2)happy.p 3)hapless.p 4)harp.pps...
dapmoney2p0c8c0
19.05.2022 01:25
Сvba найти все натуральные числа, не превосходящие заданного числа n и равные сумме кубов своих цифр...
Kleira
19.05.2022 01:25
Даны 2 действительных числа.заменить первое число нулем,если оно меньше или равно второго,и оставить числа без изменения числа в противном случае.числа вводятся...
POLTIT1
19.05.2022 01:25
Выяснить,лежит ли на одной прямой точки а(x1,y1), b(x2,y2),c(x3,y3).координаты точек вводятся пользователем с клавиатуры ,результат работы программы выводится на...
Zalis1
19.05.2022 01:25
(решить через паскаль)определить,попадает ли точка а с координатами x и y внутрь круга с радиусом r.центр круга совпадает с началом координат...
Zlowmak
19.05.2022 01:25
Вычислить с рекурсивной функции сумму многочлена 10-й степени по формуле горнера, где х - вещественное число, вводимое пользователем: 10х^10+9x^9+8x^8++2x^2+x=+9)x+8)x++2)x+1)x...
anastasyaantonova07
18.02.2023 20:54
Как защитить компьютер от вредоносных программ . Дескриптор : Определение наличия признаков вредоностных программ в ПК . Описание необходимости защиты ПК от вредоносных...
motakina12
06.06.2020 17:07
Написать программу вычисления площади параллелограмма. ниже приведен рекомендуемый вид экрана во время выполнения программы Вычисления объема прямоугольника Введите...
MCKOLYA
19.08.2022 00:55
С какого органа чувств здоровый человек получает большую часть информации?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
m,n,k,i:integer;
a:array[1..1000] of integer;
begin
write('Write size array: '); readln(n);
write('Write m: '); readln(m);
k:=0;
for i:=1 to n do
begin
read(a[i]);
if a[i]>m
then inc(k);
end;
writeln(k);
readln;
readln
end.