Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
abagvandmip0agkq
24.05.2022 20:45 •
Информатика
С какими командами вы познакомились для создания геометрических фигур?
👇
Увидеть ответ
Открыть все ответы
Ответ:
JanetJackson5
24.05.2022
// 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
24.05.2022
// 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 оценок)
Это интересно:
П
Путешествия
15.04.2023
Как справиться с воздушной болезнью в самолете...
26.01.2022
Как стать центром внимания: справляемся с ролью новой девушки в старших классах...
К
Кулинария-и-гостеприимство
20.11.2022
Как заморозить овощи: полезные советы и рекомендации...
М
Мир-работы
30.04.2023
Как получить работу мечты: 5 шагов к успеху...
Х
Хобби-и-рукоделие
04.10.2022
Как сделать зажигалку: пользовательская инструкция...
К
Компьютеры-и-электроника
30.05.2020
Навсегда избавьтесь от истории Skype: подробная инструкция...
З
Здоровье
21.04.2021
Как распознать экзему: симптомы и признаки...
О
Образование-и-коммуникации
26.04.2020
Лучшие способы самостоятельно создать аэрогель...
Х
Хобби-и-рукоделие
14.04.2021
Завязывание скользящих узлов на ожерелье: профессиональный подход...
К
Компьютеры-и-электроника
27.01.2020
Изучаем, как создавать формы в HTML: полное руководство...
Новые ответы от MOGZ: Информатика
drfast555
23.02.2020
Впорядке убывания г байт, кбайт, бит, байт, тбайт...
olgagolikova2
28.03.2020
Программу составить для решение . задать целое число и определить кратно ли оно 10 через turbo pascal...
LeysAn11234
16.10.2020
К школьному празднику восьмиклассники сделали длинную гирлянду из разноцветных флажков. Флажки они разместили на ней следующим образом (если считать слева направо): сначала один...
Jfjdhdhhdjdxjxh1111
05.07.2020
Составить кроссворд по теме текстовый редактор и текстовый процессор (10 слов)....
Настечок
05.07.2020
Сообщение на языке племени мульти содержит 64 символа, что составляет 32 байта. сколько символов содержит алфавит племени мульти?...
lina160107
17.07.2020
Билет №31. НА ЯЗЫКЕ PYTHON, КТО СКОЛЬКО МОЖЕТ 1. Определить и вывести на экран цифры целого числа n. Например: 568(первая цифра справа равна 8,вторая цифра равна 6..)Решить задачу...
savelevad120
05.05.2021
В ответах вида 2x (степень x)введи степень в окно ввода,это как...
olgaborodec82
05.05.2021
Что будет выведено на экран после выполнения следующей программы? if a == 1 and a == 2: print( Да! ) else: print( Нет. )...
Наташа1358064225
24.03.2021
Алфавит состоит из 10 букв. На диске выделено 20 байт. Сколько символов можно записать на диск?...
Иринка853653
29.08.2021
Массив А вводится с клавиатуры. Найти среднее арифметическое его элементов с нечетными номерами. Размер произвольный. на...
MOGZ ответил
Сумма вертикальных углов равна смежному с ними углу. найдите вертикальные углы....
Найдите в ! найдите в стихотворении тучи лермонтов. эпитеты, сравнения, лексические...
Какое количество теплоты потребуется чтобы 100г воды взятой при 10 градусов цельсия...
Найти сумму целого числа больше 5 в паскале. заранее ))...
Напишите эссе по на тему: моё отношение к истальянскому фашизму и нацизму в 20...
Придумать по теме нахождения числа по его дроби...
Один из вершины углов равнобедренного треугольника равен 110 градус. найдите...
Чему равен arcsin 0,3125 в градусах? ?...
Постройте график функции y=log_2 (4-x)-3...
Из скольких морфем состоит слово дубравушка: 3,4,5,6...
Полный доступ к 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 отрицательных