Ask___
Advice
Главная
О сервисе
О нас
Правила пользования сайтом
Авторское право
Политика конфиденциальности
Ключ для indexNow
Скрипт от рекламы
Задать вопрос
Искать
Главная
Информатика
Ответы на вопрос
secretar62
05.09.2021
?>
решить, нужно нужно именно само решение)
Информатика
Ответить
Ответы
Любовь
05.09.2021
// 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 отрицательных
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
решить, нужно нужно именно само решение)
Ваше имя (никнейм)*
Email*
Комментарий*
Согласен с
политикой конфиденциальности
Отправить вопрос
Популярные вопросы в разделе
Вставь пропущенные слова: воздействие на человека
Автор: kim-1971
Придумать свою программу "Маневр"?
Автор: yusinelnik8
A1, B1 va C1 yacheykalariga mos ravishda 42, 45 va 25 sonlari kiritilgan D1 yacheykaga C1, B1, A1 yacheykadagi sonlar yig'indisi o’rta arifmetigini yozish qaysi formula bilan bajariladi?Iltimos yo...
Автор: Владимирович
Дисциплина операционные системы 1. kernel mode, user mode. 2. примеры тупиков при распределении ресурсов. обнаружение и предотвращение тупиков. алгоритмы разрешения тупиков. восстановление после тупи...
Автор: озерская_Мария1234
Задано вещественное значение аргумента х. Составить блок- схему вычисления значения функции у !
Автор: serkan777
Расшифровать йюшсзъ дс, щчнювкм? щшф ыс агюцлръ жьябцйфшикд югъраокхюц, эю згхгкэкд цфктм, иё ашсйгыикд цгыгй юкчифк. ёцз япсюёю сдь сэгуъэзщж ж йьюя, н и ржзёщ внгха. фщршсшжчч щ хдм ыфчльтдс,...
Автор: Вячеславович-Дмитрий1694
Программы обслуживания устройств компьютера называются
Автор: POMILEVAVladimirovna269
Дано число х увеличьте его на 20 если оно не отрицательно, во всех остальных случаях уменьшить на по братски
Автор: Natacha3636672
Запиши значення змінних a і b після виконання фрагменту програми, якщо їхні початкові значення a= 8, b= 12. if a>b: a = a - b else: b = b - a
Автор: Semenova1719
укажите строку названия поисковых систем: а)Opera, Rambler б)Netscape, Navigator в)Aport, Yahoo г)Mosaic, AdWiper
Автор: ilyushin-e
Установите соответствие между словами левого и правого столбиков : газета предмет радуга прогулка процесс стадион чтение мираж явление по информатике . !
Автор: demochkoo
Функция задана. Написать Блок-схему и псевдокод: h=0.1, b=1
Автор: mel9152480522
Напечатать таблицу перевода температуры из градусов по шкале Цельсия(С) в градусы по шкале Фаренгейта (F) для значений от 15 до 30 градусов С с шагом 10С. Перевод осуществляется по формуле F=1, 8C+32.
Автор: KseniGum9
Выбери две характеристики компьютеров третьего поколения. Верных ответов: 2 разработаны первые языки программирования совместимость программ развитые операционные системы период – после 1975 года быст...
Автор: kurmaleeva
Ура! Саша Вилкин празднует день рождения и по такому поводу принёс в школу конфеты. Раздав всем N одноклассникам по конфете, Саша обнаружил, что у него осталась лишь одна, которую он хочет отдать с...
Автор: Elenazhukovafashion7
▲
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 отрицательных