Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
MarcoMCorejz
04.06.2020 09:10 •
Информатика
Порівняйте вірш Лесі Українки "Стояла я і слухала весну" та "Блакитна Панна" М.Вороного за самостійно дібраними критеріями
👇
Увидеть ответ
Открыть все ответы
Ответ:
JanetJackson5
04.06.2020
// 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 отрицательных
4,7
(40 оценок)
Ответ:
Duglas17
04.06.2020
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(100,-20,20); a.Println;
Writeln('Положительных ',a.Where(t->t>0).Count,
', отрицательных ',a.Where(t->t<0).Count)
end.
Пример
19 7 4 15 15 -16 20 6 1 7 -15 -13 3 0 -10 -17 -14 -16 12 -9 -16 -6 6 10 4 -17 -17 19 20 -12 -18 18 9 -14 -17 -11 6 4 -8 -20 -2 18 -3 -6 -6 -12 -8 -8 -11 13 -6 19 19 3 -14 4 -19 14 -10 11 -19 -19 6 -8 4 -13 -2 -4 -3 -19 -2 3 12 11 14 -13 18 -9 -4 -4 12 11 9 -14 14 -17 20 -15 20 -1 -12 13 -7 1 20 -4 -9 -16 10 -13
Положительных 45, отрицательных 54
4,7
(28 оценок)
Это интересно:
С
Стиль-и-уход-за-собой
26.01.2020
Как отчистить сандалии Rainbow...
С
Стиль-и-уход-за-собой
28.02.2021
Как завивать волосы в кудри: простые шаги и полезные советы...
Д
Дом-и-сад
08.06.2022
Как почистить LEGO: простые способы, которые помогут сохранить блестящую внешность игрушек...
Т
Транспорт
18.02.2022
Как диагностировать автомобильную помпу...
Х
Хобби-и-рукоделие
09.09.2020
Как использовать объективы с байонетом M42 на цифровых фотоаппаратах Canon EOS...
П
Питомцы-и-животные
16.12.2021
Как завоевать доверие собаки: советы для новичков...
К
Кулинария-и-гостеприимство
04.02.2021
Как приготовить тыкву: от супа до печенья...
К
Компьютеры-и-электроника
13.05.2023
Как исправить проблемы с завершением работы Windows...
Х
Хобби-и-рукоделие
11.02.2021
Как выбрать апертуру объектива: все, что вам нужно знать...
О
Образование-и-коммуникации
21.09.2020
Как убедить человека рассказать свой секрет? Открываем профессиональные секреты психологии...
Новые ответы от MOGZ: Информатика
shishkova600
30.06.2020
На які групи поділяються величини?...
dfhdfhf20022004
08.01.2022
Як розділяються величини за типом?...
Andreiuchenik
21.07.2022
Які величини називаються постійними, а які змінними?...
AlexSashka2003
01.11.2021
Написать фрагмент кода к задаче: в многострочном текстовом поле содержится информация о росте семи девочек. Необходимо определить средний рост девочки и выяснить сколько из этих детей...
alinakuzmich324
30.04.2022
Яка функція використовується для введення даних в Lazarus?...
ivanovasasha2
08.08.2021
Составьте из этих букв слово окравесвоотпар ( связанное с интернетом)...
polinabighui
28.08.2021
Як описуються величини числового типу мовою програмування Lazarus? ...
lozinskayaeliz
07.06.2021
петя — выпускник 11 класса. выберите (отметьте «галоч кой») актуальную для него информацию: информация о датах проведения экзаменов информация о зачислении в 1 класс информация о вступительных...
bayawb65
09.05.2020
Сколько точек (пикселей) содержится в изображении объёмом 2 мб с глубиной цвета 16 бит?...
Вита1908
09.05.2020
Составить программу на паскале. дан одномерный массив целых чисел из n элементов. найти и вывести номера элементов заканчивающихся цифрой 0....
MOGZ ответил
В финале турнира Российской Армии по шахматам встретились представители шести воинских...
Анализ стиха Бродского «Я всегда твердил, что судьба игра». 1. Образы 2. Художественные...
Вскоре после начала Пунических войн римляне поняли, что им не удастся победить карфагенян...
Объясни какой текст ты хочешь или не художник Вспомни что называется грамматической...
Составить рекламу домашнего обучение...
Что означает, насыпать арбузные семечки в карман во время сватанья? Що означає,...
Слава собирался купить 26 конфет(-ы), но ему не хватало для этого 3 руб. Тогда Слава...
Fill in themissing forms of the deqrees of comparisons1high 2smalier3 the largest...
Проблемне запитання : Добро чи зло перемогло в повісті - казці Ю.Винничука Місце...
Произведи морфологический разбор местоимения. все в скриншоте...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
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 отрицательных