Ответы на вопрос:
Pascal: var i,n,kol: longint; a: array[1..10000] of longint; begin readln(n); for i: =1 to n do begin read(a[i]); if a[i]> 0 then inc(kol); writeln(kol); end.
Популярно: Информатика
-
Определите площадь трапеции высотой H, с основаниями a и b. питон...
SpaceRZX23.07.2021 05:29 -
Для создания рисунка на компьютере используются ..., ..., они бывают растровые...
траппер18.06.2023 08:04 -
Составить программу нахождения остатка деления целочисленного числа k на n. питон...
Наташа135806422510.06.2020 02:43 -
Своеобразный инструмент познания, который исследователь ставит между собой и объектом...
gaibog15.11.2022 11:40 -
Программа, которая позволяет работать с графическими изображениями. A) Текстовой...
софийка3414.09.2021 09:10 -
Между населёнными пунктами A, B, C, D, E построены дороги, протяжённость которых...
Криста0212.06.2021 17:35 -
2. составьте программу, выводящую на экран положительные делители числа, введенного...
7909nastya07.02.2023 01:54 -
Что из перечисленного не является носителем информации? диск с играми книга карта...
8910930183918.05.2023 15:34 -
Ребята! Выручайте! Python: Порядок действий Определите порядок действий при вычислении...
ParkAnna17.11.2022 02:22 -
Вэнциклопедии 512 страниц,на каждой странице 48 строк ,на каждой строке 32 символа....
Vhrgrg24.12.2022 05:59