Question

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

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;
end;
writeln(k);
end.

Answer 2

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