Дан двумерный массив целых чисел. Определить минимальный номер столбца, который состоит только из элементов больших числа 10. Оформить программу на языке Паскаль с помощью подпрограмм-функций.
BobbyFresnel
Количество колонок в массиве. Вы загрузите программу в среду исполнения, наведите курсор на непонятное слово - там все по русски Вам расскажет.
Answers & Comments
===== 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.