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

viktornekrasov2000:
Простите, а что значит ReadInteger2?
Похожие вопросы
Предмет: Физика,
автор: Аноним
Предмет: Українська література,
автор: Аноним
Предмет: Английский язык,
автор: fredom0883
Предмет: Математика,
автор: azaliya20161
Предмет: Математика,
автор: botya8899