Составить программу нахождения количества положительных элементов в массиве из n вещественных чисел
181
196
Ответы на вопрос:
// pascalabc.net 3.1, сборка 1214 от 09.04.2016 begin var a: =arrrandomreal(readinteger('n=',20); a.println; writeln('положительных: ',a.where(x-> x> 0).count) end. тестовое решение: n= 7 -17.1342332089014 3.03964398011549 16.2039925512876 -6.95437877762801 13.9224117034685 -1.08502876995366 11.8818603045688 положительных: 4
Const max = 20; var arr : array [1..max] of real; count, i : integer; begin for i : = 1 to max do arr[i] : = random(100) - 50; for i : = 1 to max do write(arr[i], ' '); writeln(); for i : = 1 to max do if arr[i] > 0 then count : = count + 1; writeln('количество положительных чисел: ', count); end.
Производственная катастрофа- внезапное, непредвиденные освобождение механической...
Экологическая катастрофа- стихийное бедствие..
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
MariyamGaraeva27.05.2023 00:58
-
Kiosshi22.11.2021 06:09
-
Yana250202.08.2022 15:54
-
muradveliyev23.03.2020 00:00
-
hzeslichestno14.12.2021 07:13
-
parchiev1431.07.2021 10:15
-
ност121.03.2023 14:23
-
макатернар114.01.2021 10:17
-
ssyyppeerrmmaax07.11.2021 04:38
-
mmv2721ozx8sx27.09.2020 09:43
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.