Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Ульянатв
06.10.2022 16:11 •
Информатика
Дан массив целых чисел , определить в нем количество положительных и отрицательных
Показать ответ
Ответ:
Макс11171
05.10.2020 09:44
//PascalABC.NET 3.2 сборка 1318
Const n=4;
begin
var ar:=readarrInteger(n);
writeln('Positive:',ar.Where(x -> x>0).Count);
writeln('Negative:',ar.Where(x -> x<0).Count);
end.
Пример ввода:
1
2
0
-1
Пример вывода:
Positive:2
Negative:1
0,0
(0 оценок)
Ответ:
Annalmak
05.10.2020 09:44
// C++
#include <iostream>using namespace std;const int N = 200;
int main() { setlocale(LC_ALL, "rus"); int data[N]; int Pol, Otr, sizemas; Pol = 0; Otr = 0; cout << "Введите размер массива" << endl; cin >> sizemas; cout << "Введите элементы массива (без 0)" << endl; for(int i=0; i<sizemas; i++) { cin >> data[i]; } for(int i=0; i<sizemas; i++) { if(data[i] >= 0) { Pol++; } else { Otr++; } } cout << "Положительных элементов: " << Pol << endl << "Отрицательных элементов: " << Otr << endl; return 0;}
0,0
(0 оценок)
Популярные вопросы: Информатика
Kotuknarkotik
12.03.2020 19:00
Дан числовой массив а, состоящий из п натуральных чисел. найти произведение минимального и максимального элементов.( )...
ViktorNiktophorov
28.03.2022 17:26
Сделайте задание. Лого миры 3...
Артур13487в158168
03.12.2021 19:47
Говорят, что на этот сайт ( http://tasks.ctn2021.ctf.msk.ru:5001 ) не пускают роботов Очень даю...
Nail20041
05.02.2022 13:39
Пусть А = первая буква имени согласная , В последняя буква имени гласная заполните таблицу (А.)(В). (А и НЕ B) (истина или ложь Елена Вадим Антон Фёдор Мария...
EgotinSmey
15.06.2020 12:13
с информатикой . Я вас очень , напишите с объяснением, почему и как вы это сделали. просто я ничего не понимаю. За ранее...
bileskayilona
22.11.2022 19:46
Подскажите , , четыре слова в языке в каждом из которых по сто одинаковых согласных , а в одном слове по два л....
Nastya23160
23.02.2020 07:06
В Среде Delphi составьте программу,которая чертит 4 разные концентрические окружности ...
viktoriakeda
04.01.2023 16:06
Mülahizənin doğru davamını seçin:Slayda əlavə edilmiş cədvəlin ......
Маша07122005
10.02.2022 04:35
С++ Введіть одновимірний цілочисельний масив. Знайдіть найбільший непарний елемент. Далі тричі здійсните циклічний зсув вліво елементів, що стоять праворуч від знайденого максимуму,...
botpolikop20181
08.04.2023 01:25
The Union Flag is the symbol of the United Kingdom. The colours of the UK flag are red, white and blue. It has got three crosses that are from each nation of the United Kingdom...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Const n=4;
begin
var ar:=readarrInteger(n);
writeln('Positive:',ar.Where(x -> x>0).Count);
writeln('Negative:',ar.Where(x -> x<0).Count);
end.
Пример ввода:
1
2
0
-1
Пример вывода:
Positive:2
Negative:1
#include <iostream>using namespace std;const int N = 200;
int main() { setlocale(LC_ALL, "rus"); int data[N]; int Pol, Otr, sizemas; Pol = 0; Otr = 0; cout << "Введите размер массива" << endl; cin >> sizemas; cout << "Введите элементы массива (без 0)" << endl; for(int i=0; i<sizemas; i++) { cin >> data[i]; } for(int i=0; i<sizemas; i++) { if(data[i] >= 0) { Pol++; } else { Otr++; } } cout << "Положительных элементов: " << Pol << endl << "Отрицательных элементов: " << Otr << endl; return 0;}