Информатика. паскаль. подсчитать количество отрицательных элементов одномерного массива
131
399
Ответы на вопрос:
Program p1; uses crt; {нужно для очистки экрана, писать не обязательно} var i, n, count: integer; a: array [1..50] of real; begin clrscr; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do if a[i]< 0 then count: =count+1; writeln('в вашем массиве ', count, ' отрицательных элементов'); readln; end.
// pascalabc.net 3.3, сборка 1561 от 02.11.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',50); a.println; writeln('отрицательных элементов- ',a.where(x-> x< 0).count) end. пример n= 15 27 46 -29 -31 28 49 18 16 -5 -11 -20 30 -33 -14 41 отрицательных элементов- 7
// pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! begin var s: =readlnstring('введите строку: ').tolower; var c: =readlnchar('введите искомую букву: ').tolower; writeln('буква встречается ',s.where(a-> a=c).count,' раз(а)') end. пример введите строку: а роза упала на лапу азора введите искомую букву: а буква встречается 8 раз(а) // pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! begin var s: =readlnstring('введите фразу: '); s.replace('ты','я').replace('ты','я').println end. пример введите фразу: тыков ест тыблоко яков ест яблоко // pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! begin var s: =readlnstring('введите строку: '); var s1: =readlnstring('что найти? '); var s2: =readlnstring('чем заменить? '); s: =s.replace(s1,s2); s.println; end. пример введите строку: мама, мама, что я буду делать, мама, мама, как я буду жить? что найти? мама чем заменить? папа папа, папа, что я буду делать, папа, папа, как я буду жить?
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
nazydraganil19.03.2021 20:56
-
Malia2104.03.2020 14:40
-
monkeyone13.02.2023 11:09
-
vikapuhtina20.06.2020 01:41
-
хорошист42828.11.2022 14:43
-
лютебя26.12.2022 15:34
-
мороженле06.12.2020 06:24
-
kononenkoalinka05.01.2023 19:13
-
рот4022.03.2023 02:16
-
vdoncov2329.01.2021 04:36
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.