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.