Напишите программу, которая подсчитывает количество двузначных чисел в заданной последовательности натуральных чисел.Программа получает на вход количество чисел в последовательности, а затем сами числа.Количество чисел не превы...

Question

Напишите программу, которая подсчитывает количество двузначных чисел в заданной последовательности натуральных чисел.Программа получает на вход количество чисел в последовательности, а затем сами числа.Количество чисел не превы...

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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;