Напишите программу, которая подсчитывает количество двузначных чисел в заданной последовательности натуральных чисел.программа получает на вход количество чисел в последовательности, а затем сами числа.количество чисел не превышает 1000. введённые числа не превышают 30 000.программа должна вывести одно число – количество двузначных чисел в заданной последовательности натуральных чисел.
a: array[1..1000] of longint;
i,s,n:integer;
Процедуру заполнения напишешь сам, пишу алгоритм нахождения двухзначного числа(Количество чисел это n):
for i:=1 to n do
begin
if (a[i]>9) and (a[i]<100) then
begin
s:=s+1;
end;
end;