Ответы на вопрос:
1. короткий вариант // pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin var a: =arrrandom(readinteger('n=',99); a.println; writeln('k=',a.where(x-> x> 0).count) end. тестовое решение n= 15 -69 10 83 -61 -21 -98 -75 -78 27 88 67 -84 61 62 -41 k=7 2. "школьный" вариант (а кто сказал, что будет легко? ) // pascalabc.net 3.1, сборка 1230 от 27.04.2016 const nn=100; var i,n,k: integer; a: array[1..nn] of integer; begin write('n= '); read(n); randomize; k: =0; for i: =1 to n do begin a[i]: =random(199)-99; write(a[i],' '); if a[i]> 0 then inc(k) end; writeln; writeln('k=',k) end. тестовое решение n= 15 28 46 88 -14 -55 -25 52 43 -7 17 71 -8 -34 56 79 k=9
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
apolinarii200613.07.2021 03:04
-
gladishsofiya08.02.2021 13:25
-
ivannanikolaeva05.05.2021 12:04
-
мамаеб22811.12.2020 10:38
-
НиколайБлейд16.02.2020 19:50
-
sonsan10815.12.2020 09:52
-
murarr17.06.2022 00:44
-
RihDest24.12.2021 22:21
-
KrasotkaSofia19527.02.2020 10:29
-
mspasenkova07.06.2020 10:34
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.