Пожалуйста! В данной последовательности чисел, которая задается с клавиатуры, найти...

Question

Пожалуйста!
В данной последовательности чисел, которая задается с клавиатуры, найти количество положительных

Comments

на каком языке программирования?  и известно изначально сколько чисел будет введено?

---

Нет, не известно. На языке Паскаль

---

могу на с++ написать быстренько если устроит или минут через 10 на паскале , синтаксис не помню просто

---

Давай лучше на Паскале) Я подожду. Буду благодарен

Answer 1

Var 
str : string;
i,c,a,count : integer;
begin
i:=1;
count :=0;
writeln('Вводите числа, как только введете все числа нажмите любую букву');
while i=1 do begin
readln(str);
val(str,a,c);
if ( a>0) then count := count +1;
if(c<>0) then i:=0;
end;
writeln('Кол-во положительных чисел = ', count);
end.

ну как то так