Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
samruk1974
02.06.2022 21:45 •
Информатика
Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -10 до 10. посчитайте в этом массиве количество положительных и количество отрицательных значений
Показать ответ
Ответ:
123HelpMe123
21.09.2020 08:16
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var a:=ArrRandom(100,-10,10);
a.Println;
Writeln(a.Where(x->x>0).Count,' положительных, ',
a.Where(x->x<0).Count,' отрицательных')
end.
Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных
0,0
(0 оценок)
Популярные вопросы: Информатика
Pelyovin1980
10.01.2023 04:52
Написать программу для вычисления выражения у=in|x3/а|...
илья1972
19.10.2021 01:16
Какой тип переменной может присваиваться, если она может быть числом или строкой? vba...
джульетта2007
19.10.2021 01:16
Как называется последовательная запись констант, переменных, имен функций, разделенных знаками операций и круглыми скобками?...
alenamon
21.04.2022 16:05
От слова электростанция нужно придумать слова. 15 ....
aitbek99
02.03.2023 19:37
Сколько разных символом может быть закодировано ,если каждый символ кодируется двумя битами ? тремя битами ? четырьмя? объясните ответ ))...
BlackCat20101
09.04.2022 08:28
Перевести числа из двоичной системы счисления в десятичную: а) 10001 б) 111011 в) 1010101 г) 110110110 ? ) все получается переводить, но в...
ola124
11.12.2021 03:55
Сделайте недостающие записи на схеме преобразования звука при его компьютерной обработке....
osheefit
11.12.2021 03:55
Необходимо произвести кодирование аналогового звукового сигнала, имеющего 65 536 различных уровней интенсивности. Какую глубину звука должна...
isaevaa24
11.12.2021 03:55
Установите соответствие между понятиями и их описаниями. Мультимедиа Мультимедийный продукт, представляющий собой последовательность...
Розалиндами777
11.12.2021 03:55
Средняя скорость передачи данных по некоторому каналу связи равна 29 696 бит/с. Сколько секунд потребуется для передачи по этому каналу...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a:=ArrRandom(100,-10,10);
a.Println;
Writeln(a.Where(x->x>0).Count,' положительных, ',
a.Where(x->x<0).Count,' отрицательных')
end.
Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных