Question

Дан двумерный массив целых чисел. Определить минимальный номер столбца, который состоит только из элементов больших числа 10. Оформить программу на языке Паскаль с помощью подпрограмм-функций.​

Answer 1

===== PascalABC.NET =====

function GetMatrix: array[,] of integer;

begin

 var (m, n) := ReadInteger2('Число строк и столбцов в массиве:');

 Result := MatrRandom(m, n, 0, 20)

end;

function MinCol(a: array[,] of integer): integer;

begin

 for var j := 0 to a.ColCount - 1 do

   if a.Col(j).All(p -> p > 10) then

   begin

     Result := j;

     Exit

   end;

 Result := -1;

end;

begin

 var M := GetMatrix;

 M.Println(4);

 var k := MinCol(M);

 if k = -1 then

   Println('Нет столбцов, в которых все элементы больше 10')

 else

   Println('Минимальный номер найденного столбца:', k + 1)

end.