Question

Найти количество двузначных чисел элементов массива X(3,3), заполненного с клавиатуры. PASCAL

Answer 1

var

   matrix:array [1..3, 1..3] of integer;

   counter:integer;

   i,j:integer;

begin

   counter := 0;

   for i := 1 to 3 do

       for j := 1 to 3 do

       begin

       read(matrix[i][j]);

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

           counter := counter + 1;

       end;

   write(counter);

end.

Answer 2

Для нахождения количества двузначных чисел в массиве X(3,3), заполненного с клавиатуры в Pascal, нужно пройтись по всем элементам массива и подсчитать, сколько из них являются двузначными числами. Здесь предполагается, что массив заполняется целыми числами. Вот пример программы на Pascal:

pascalCopy code
program CountTwoDigitNumbers;

var
  X: array[1..3, 1..3] of Integer;
  i, j, countTwoDigit: Integer;

begin
  countTwoDigit := 0;

  // Заполнение массива с клавиатуры
  writeln('Введите элементы массива X(3,3):');
  for i := 1 to 3 do
  begin
    for j := 1 to 3 do
    begin
      write('X[', i, ',', j, ']: ');
      readln(X[i, j]);
    end;
  end;

  // Подсчет количества двузначных чисел
  for i := 1 to 3 do
  begin
    for j := 1 to 3 do
    begin
      if (X[i, j] >= 10) and (X[i, j] <= 99) then
        countTwoDigit := countTwoDigit + 1;
    end;
  end;

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

Эта программа попросит вас ввести элементы массива X(3,3), а затем выведет количество двузначных чисел в этом массиве.