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

Question

Информатика

Ян

10 сентября, 03:04

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

+4

Ответы (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;