Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
ozorkaltseva
13.02.2021 08:08 •
Информатика
Вмассиве с={1,2,-3,0,-1,-7,-9,9,10,-3} найти количество соседств двух положительных и количество соседств двух отрицательных элементов массива
Ответ:
lakatoshnika1
04.10.2020 10:59
//PascalABC.Net 3.1 сборка 1200
var
c: array of integer := (1, 2, -3, 0, -1, -7, -9, 9, 10, -3);
begin
// c := ArrRandomInteger(10, -10, 10);
Println(c);
Writeln(c.Pairwise().Where(x -> x.Item1 * x.Item2 > 0));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
KateKeta
13.02.2021 02:49
Футболка стоила x рублей.потом цену на футболку снизили и она стала стоить y рублей.определить на сколько была снижена цена в p процентах напишите программу на языке паскаль...
werasdfghjfdfd
02.09.2021 01:17
Напишите программы: 1. дано число кратное 7 2. дано число. определить заканчивается ли оно на 0. 3. дано 2 числа найти минимальное....
upf300804
02.09.2021 01:17
Решите через дано: если изменить амплитуду звука 44000 раз в секунду на запись каждого результата измерений отводит 16 битов, то для хранения 1 сек звукозаписи буду за...
Walker95
22.07.2021 20:56
с . автоматическое устройство осуществило перекодировку информационного сообщения на языке, первоначально записанного в 16–битном коде unicode, в 8–битную кодировку...
Yourname756
28.09.2021 08:06
Значение слова(словосочетания)органы чувств...
jovriijovrikJovrik
28.09.2021 08:06
Значение слова (словосочетания) информация...
annatimofeeva4
12.03.2023 07:06
Установите соответствие: 1)словесная а)формула для обчисления объёма басейна 2)графическая б) формула 3)структурная в)карта местности 4) г) произведение 5)специальная...
Tsenenks
21.06.2021 17:55
Вкакой системе счисления выполняется равенство 23*21 = 1203? в ответе укажите основание системы счисления....
mmmmmaaaaruuu69
16.01.2023 04:35
По 5 примеров лицензионных, условно-бесплатных и бесплатных программ...
xomis1
30.09.2022 17:50
Какая память размещена на материнской плате? во время исполнения програма хранится для долговременного хранения информации служит...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var
c: array of integer := (1, 2, -3, 0, -1, -7, -9, 9, 10, -3);
begin
// c := ArrRandomInteger(10, -10, 10);
Println(c);
Writeln(c.Pairwise().Where(x -> x.Item1 * x.Item2 > 0));
end.