Двумерный массив - Pascal (80414)

Формулировка задачи:

Дан двумерный массив. а) Выяснить, является ли произведение элементов второго столбца массива трехзначным числом. б) Составить программу, определяющую, верно ли, что сумма элементов строки массива с известным номером превышает заданное число?

Решение задачи: «Двумерный массив»

Листинг программы

var n, m, i, j:Word;
    s:Integer;
    mas:aRRay of aRRay of Integer;
    
begin
  writeln('Введите размеры массива:');
  readln(n, m);
  SetLength(mas, n);
  writeln('Введите массив:');
  for i:= low(mas) to high(mas) do
  begin
    SetLength(mas[i], m);
    for j:= low(mas[i]) to high(mas[i]) do
      read(mas[i, j]);
  end;
  s:= 1;
  for i:= low(mas) to high(mas) do
    s:= s * mas[i, 1];
  if (Length(inttostr(s)) = 3) then
    writeln('YES')
  else
    writeln('NO');
end.

Объяснение кода листинга программы

Объявляются переменные:
- n: Word - размерность массива по вертикали
- m: Word - размерность массива по горизонтали
- i: Word - переменная для индексации по вертикали
- j: Word - переменная для индексации по горизонтали
- s: Integer - переменная для хранения произведения элементов из первого столбца массива
- mas: массив массивов Integer - двумерный массив
Пользователю предлагается ввести размеры массива.
Создается двумерный массив mas размерностью n по вертикали.
Пользователю предлагается ввести элементы массива.
В цикле происходит заполнение массива элементами, вводимыми пользователем.
Вычисляется произведение элементов из первого столбца массива и сохраняется в переменной s.
Проверяется количество знаков в числе s:
- Если количество знаков равно 3, выводится сообщение YES
- В противном случае выводится сообщение NO. Код сначала заполняет массив вводимыми пользователем данными, а затем проверяет, является ли произведение элементов первого столбца трехзначным числом.