Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
zild228
09.10.2022 19:11 •
Информатика
Дан массив из 10 элементов , значение которых находится в диапазоне [-10; 10]. определить кол-во положительных и отрицательных
Показать ответ
Ответ:
Дианп11
06.10.2020 21:20
// PascalABC.NET 3.3, сборка 1541 от 29.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-10,10); a.Println;
Writeln('Кол-во положительных- ',a.Where(x->x>0).Count);
Writeln('Кол-во отрицательных- ',a.Where(x->x<0).Count);
end.
Пример
-10 9 8 5 3 -10 0 4 -4 -4
Кол-во положительных- 5
Кол-во отрицательных- 4
0,0
(0 оценок)
Популярные вопросы: Информатика
Rafaila111
22.04.2023 04:28
сделать лабораторную работу по информатике Буду очень благодарен Файл юридическая деятельность это текст на котором нужно сделать лабу а файлы с занятием показаны как...
mikran
16.04.2023 05:46
Выразите размер файла в мбайтах, если оно весит 2048 кбайт....
Markys1555
17.02.2021 22:12
Скорость передачи данных через adsl-соединение равна 2621440 бит/с. через данное соединение файл с размером 10 мбайт. определите время передачи файла в секундах расписать...
milanka28082006
20.12.2022 17:05
Впроцессе преобразования растрового графического файла кол-во цветов увеличивается с 32 до 1024. во сколько раз увеличился информационный объем файла?...
neznakomka1408
27.11.2020 13:28
Даны два числа в десятичной системе счисления А=27, В=15. a) найти сумму чисел в десятичной системе счисления;b) перевести каждое число в двоичную систему счисления;c)...
serpgo1
22.03.2023 15:55
Иван составляет 5-буквенные слова из букв А, Б, В, Г, Д, Я. В каждом слове содержится ровно три буквы Я. Сколько различных кодовых слов может составить Иван?...
Ksuha1304
08.08.2020 21:21
Дано n чисел. найти количество кратных 10...
kotovaalina31
27.02.2020 17:08
Напишите программу, которая в последовательности целых чисел определяет количество нечётных чисел, кратных 3. программа получает на вход целые числа, количество введённых...
bakulya2005ma
27.04.2021 21:17
Свопросом. известны ли вам рассказы или повести о том, как человек становится писателем (к примеру, у чехова, бунина, горького? )...
115544
27.04.2021 21:17
Основная мысль в стихотворении в. маяковского хорошее отношение к лошадям заранее )...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-10,10); a.Println;
Writeln('Кол-во положительных- ',a.Where(x->x>0).Count);
Writeln('Кол-во отрицательных- ',a.Where(x->x<0).Count);
end.
Пример
-10 9 8 5 3 -10 0 4 -4 -4
Кол-во положительных- 5
Кол-во отрицательных- 4