159Напишите программу, которая в последовательности натуральных чисел определяет количество двузначных чисел, в записи которых количество десятков превосходит количество единиц. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется двузначное число, в записи которого количество десятков превосходит количество единиц. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество двузначных чисел, в записи которых количество десятков превосходит количество единиц. Пример работы программы: 5 Входные данные 100 10 27 98 55 Выходные данные 2 написать на паскале 9 класс огэ

Для выполнения данной программы на языке программирования Pascal для задачи ОГЭ, следует использовать следующий код:

program CountTwoDigitNumbers;

var
  amount, count, number, tens, ones, i: integer;

begin
  count := 0;
  readln(amount);

  for i := 1 to amount do
  begin
    read(number);
    
    if (number >= 10) and (number <= 99) then
    begin
      tens := number div 10;
      ones := number mod 10;
      
      if tens > ones then
        count := count + 1;
    end;
  end;

  writeln(count);
end.

Этот код считывает количество чисел в последовательности, а затем последовательно вводит числа. Затем программа проверяет каждое двузначное число и увеличивает счетчик, если количество десятков превосходит количество единиц в числе. В итоге выводится количество таких чисел.

Вы можете скопировать этот код и запустить его в вашей среде программирования на Pascal для решения задачи, описанной вами. Удачи в подготовке к ОГЭ!