Var a,n,i,k:integer;
Begin
Readln(n);
k:=0;
For i:=1 to N do
Begin
readln(a);
if a>0 then k:=k+1;
end;
Writeln(k);
End.
ОПЕРАТОР ЦИКЛА С ПРЕДУСЛОВИЕМ WHILE ... DO (пока…) Оператор while ... do предназначен для реализации циклов с предусловием.
Условие выполнения тела цикла while проверяется до начала каждого шага. Поэтому если условие сразу не выполняется, то тело цикла игнорируется, и управление передается оператору, стоящему сразу за телом цикла.
while <условие> do <оператор>
В цикле while подразумевается такой алгоритм: пока условие истинно, выполняются операторы тела цикла.
Само условие может быть логической константой, переменной или логическим выражением.
При написании циклов с предусловием следует помнить следующее.
1. чтобы цикл имел шанс когда-нибудь закончиться, содержимое его тела должно обязательно влиять на условие цикла.
2. условие должно состоять из корректных выражений и значений, определенных еще до первого выполнения тела цикла.
Если условие цикла ложно цикл не выполнится ни разу!
