Question

НА ПАСКАЛЕ ABC с простой версией(40 баллов)
Задача:

Среди заданных чисел найти количество двухзначных чисел.

Формат ввода:

На первой строке задано количество чисел последовательности (неотрицательное, целое число не превосходящее 30000).

На второй - элементы последовательности (целые числа в диапазоне от -30000 до 30000) через пробел.

Формат вывода:

Целое число.

Пример входных данных

5
1 -20 -3 40 0
Пример выходных данных

2

Answer 1

Program n1;
var n,i,a,k: integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
read(a);
if abs(a) in [10..99] then k:=k+1;
end;
write(k);
end.