Напишите программу которая в последовательности целых чисел определяет количество положительных чисел
DIAAADA
3
07.10.2019 03:30
0
Другие вопросы по теме Информатика
otoshol62
17.09.2019 05:50
Katya08777
06.09.2020 16:49
17312
06.09.2020 16:55
Анна20041288
06.09.2020 16:55
LeklA
06.09.2020 15:18
Tadashimi2016
06.09.2020 15:19
тина123болото
07.09.2020 15:26
Diana2004250
06.09.2020 15:59
Популярные вопросы
- Закончи предложения, вставив в них недостающие предлоги. 1) john...
2 - Найдите периметр параллелограмма, если его высоты равны 4 и 6 см...
2 - Решите , надо. постройте для данного предложения 4 типа вопросов:...
2 - Определение равенства треугольников. докажите первый признак равенства...
3 - Выберите вещества, добовление которых к раствору k2s уменьшит гидролиз...
3 - Назовите лозунг восстания 1794г в рп...
1 - Кролик живет до 12 лет, что составляет: 1) 6 седьмых жизнь овцы...
3 - Исследовать функцию на монотонность и экстремумы и построить график...
2 - Определите тип ареала, изображённого на рисунке. укажите возможные...
2 - Учительница задала , а мы не может её решить. там везде перевозится...
2
var a,i,k,sum:integer;
begin
read(a); //кол-во числе в последовательности
for i:=1 to a do begin
read(k);
if(k>=0)then sum:=sum+1; //проверка на положительное число
end;
write(sum);
end