Question

Дан массив из 15 элементов, вывести количество двузначных чисел. (Паскаль)

Answer 1

// PascalABC.Net

var arr: array [1..15] of integer;

count: integer;

begin

   for var i:=1 to 15 do

       arr[i]:=random(1, 300);

   

   writeln('Исходный массив: ');

   for var i:=1 to 15 do

       write(arr[i], ' ');

   writeln();

   

   count:=0;

   for var i:=1 to 15 do

       if (arr[i] > 9) and (arr[i] < 100) then

           count += 1;

   writeln('Количество двузначных чисел: ', count);

end.

Answer 2

Для решения этой задачи в Pascal, вы можете использовать следующий код. Я предполагаю, что массив элементов будет объявлен и заполнен заранее.

pascalCopy code
program CountTwoDigitNumbers;

const
  N = 15; // Количество элементов в массиве

var
  arr: array[1..N] of Integer;
  countTwoDigit: Integer; // Переменная для хранения количества двузначных чисел
  i: Integer;

begin
  // Заполните массив arr заранее
  // Например:
  // arr[1] := 10;
  // arr[2] := 25;
  // ...
  // arr[N] := 99;

  countTwoDigit := 0; // Начальное количество двузначных чисел равно 0

  for i := 1 to N do
  begin
    if (arr[i] >= 10) and (arr[i] <= 99) then
      Inc(countTwoDigit); // Если число двузначное, увеличиваем счетчик
  end;

  writeln('Количество двузначных чисел в массиве: ', countTwoDigit);
end.

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