Дан целочисленный массив размера k. вычислить количество положительных и количество отрицательных элементов массива.
105
287
Ответы на вопрос:
Uses crt; var mas: array [1..1000] of real; x,k,o,p: integer; begin write('k='); readln(k); o: =0; p: =0; for x: =1 to k do begin write('mas[',x,']: '); readln(mas[x]); if mas[x]< 0 then inc(o); if mas[x]> 0 then inc(p); end; writeln; writeln('отрицательных элементов: ',o); writeln('положительных элементов: ',p); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Nadya111111111111131.10.2022 06:02
-
veno106.06.2023 19:54
-
ke7rin08.12.2021 03:43
-
MorEnSo05.04.2023 20:13
-
lerikonusheva08.04.2023 19:39
-
alinka39317.08.2022 07:11
-
arkadikmxitary23.03.2021 03:03
-
KathrynMay24.05.2023 18:10
-
bgs654410.07.2021 01:45
-
kutina196923.03.2020 03:38
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.