Напишите программу, которая подсчитывает количество двузначных чисел в заданной последовательности натуральных чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число - количество двузначных чисел в заданной последовательности натуральных чисел.

Question

Информатика

Игуля

6 июня, 01:26

Напишите программу, которая подсчитывает количество двузначных чисел в заданной последовательности натуральных чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число - количество двузначных чисел в заданной последовательности натуральных чисел.

+2

Ответы (1)

Знаешь ответ?

Валентинка · Answer 1

var

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;