Question

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

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;

Answer 2

Привет! Вот пример программы на Pascal, которая подсчитывает количество двузначных чисел в заданной последовательности натуральных чисел:

program CountTwoDigitNumbers;

var
  n, number, count: integer;

begin
  count := 0;
  
  // Ввод количества чисел в последовательности
  readln(n);
  
  // Подсчет двузначных чисел
  for var i := 1 to n do
  begin
    readln(number);
    if (number >= 10) and (number <= 99) then
      count := count + 1;
  end;
  
  // Вывод результата
  writeln(count);
end.

Программа сначала считывает количество чисел в последовательности (`n`), а затем последовательно считывает сами числа. Если число является двузначным (от 10 до 99), то счетчик увеличивается на 1. В конце программа выводит количество двузначных чисел в заданной последовательности.

Например, если вводим `5` в качестве количества чисел, а затем последовательность `15 100 42 77 8`, программа выведет `3`, так как только числа `15`, `42` и `77` являются двузначными.

Обрати внимание: Программа написана на языке Pascal. Если ты хочешь использовать другой язык программирования, дай мне знать, и я могу предоставить пример кода на другом языке.

Надеюсь, это поможет! Если у тебя есть еще вопросы, не стесняйся задавать.