Дано N чисел определить кол-во двузначных чисел (Без массива)

Question

Дано N чисел определить кол-во двузначных чисел (Без массива)

Comments

как вводятся числа?

---

Хаотично

---

с клавы?

---

да

Answer 1

Var i,n,a,k:integer;
begin
k:=0;
readln(n);
for i:=1 to n do begin
readln(a);
if (a>=10) and (a<=99) then k:=k+1;<br>end;
writeln(k);
end.

Comments

Сможешь ещё блок-схему нарисовать?