Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
rusnaktaniusha
26.03.2020 23:55 •
Информатика
2. напишете программу на языке pascal, которая в массиве из 19 элементов подсчитывает количество элементов меньше 100. массив должен заполняться случайными значениями в интервале от 0 до 200
Показать ответ
Ответ:
oksana1111156970
03.10.2020 18:26
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(19,0,200); a.Println;
Writeln('k=',a.Where(x->x<100).Count)
end.
Тестовое решение
127 120 137 75 141 61 116 13 52 180 109 80 91 36 71 191 56 7 108
k=10
0,0
(0 оценок)
Популярные вопросы: Информатика
adilymnuk
20.05.2020 19:51
Умножьте: а) 101 ₂ * 11 ₂ б) 152 ₈*47 ₈ в) 2А ₁₆* FE ₁₆...
rafik321
12.10.2020 03:32
сделать тест на python по истории на 15 вопросов ...
maria2005dp
01.02.2022 18:54
У змінній letters міститься список [ a , b , c , d ]. Яке значення виразу letters[:2]?У змінній letters міститься список [2, 4, 6, 8, 10]. Як присвоїти значення zero...
kirilsex69
24.10.2020 22:11
У змінній letters міститься список [2, 4, 6, 8, 10]. Як присвоїти значення zero в якості третього елемента даного списку?...
29082
10.05.2021 16:27
Составить программу в turbo pascal! надо! надо найти значение y. 4х+10 если х 0 ; 8+х если х 4 это система уравнений...
amalia454565
21.06.2022 09:05
Сколько памяти необходимо для хранения экрана стандартного vga (640x480, 256)?...
Nastena102002
01.09.2020 01:42
Определите, что будет напечатано в результате работы следующей программы. var s,k: integer; begin s: = 0; for k: = 4 to 9 do s: = s + 12; writeln(s); end. ответ:...
maks7221
01.09.2020 01:42
Укажите диапазон ответов удовлетворяющих данному выражению не(x 7) и не(x =18)...
missapikova
01.09.2020 01:42
Водномерном массиве м, состоящем из 10 целых чисел, найти: а) количество нулевых элементов: б) сумму элементов, больших -4: в) полу сумму элементов с четными индексами:...
53490
03.11.2020 15:15
Как изменится объем куба , если его ребро уменьшится в 4 раза...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a:=ArrRandom(19,0,200); a.Println;
Writeln('k=',a.Where(x->x<100).Count)
end.
Тестовое решение
127 120 137 75 141 61 116 13 52 180 109 80 91 36 71 191 56 7 108
k=10