Для нахождения наименьшей суммы элементов среди столбцов целочисленной прямоугольной матрицы m*n, заполненной случайными числами, на языке программирования Паскаль, можно следовать следующим шагам:

1. Определите размеры матрицы: В начале программы задайте размеры матрицы - количество строк (m) и количество столбцов (n).
2. Объявите матрицу: Создайте двумерный массив для хранения элементов матрицы.
3. Заполните матрицу случайными числами: Используйте цикл для заполнения матрицы случайными целыми числами.
4. Инициализируйте массив для хранения сумм столбцов: Создайте одномерный массив, который будет хранить сумму элементов каждого столбца.
5. Вычислите суммы столбцов: Используйте вложенные циклы для суммирования элементов в каждом столбце.
6. Найдите наименьшую сумму: Пройдите по массиву сумм и найдите наименьшее значение.
7. Выведите результат: Выведите наименьшую сумму и индекс соответствующего столбца.

Теперь давайте рассмотрим пример кода на Паскале, который реализует указанные шаги:

program MinColumnSum;

const
    MAX_SIZE = 100; // Максимальный размер матрицы

var
    m, n, i, j: integer;
    matrix: array[1..MAX_SIZE, 1..MAX_SIZE] of integer;
    columnSums: array[1..MAX_SIZE] of integer;
    minSum, minIndex: integer;

begin
    // 1. Ввод размеров матрицы
    writeln('Введите количество строк (m):');
    readln(m);
    writeln('Введите количество столбцов (n):');
    readln(n);

    // 2. Заполнение матрицы случайными числами
    randomize; // Инициализация генератора случайных чисел
    for i := 1 to m do
        for j := 1 to n do
        begin
            matrix[i, j] := random(100); // Заполнение случайными числами от 0 до 99
        end;

    // 3. Инициализация массива сумм столбцов
    for j := 1 to n do
        columnSums[j] := 0;

    // 4. Вычисление сумм столбцов
    for j := 1 to n do
        for i := 1 to m do
        begin
            columnSums[j] := columnSums[j] + matrix[i, j];
        end;

    // 5. Нахождение наименьшей суммы
    minSum := columnSums[1];
    minIndex := 1;
    for j := 2 to n do
    begin
        if columnSums[j] < minSum then
        begin
            minSum := columnSums[j];
            minIndex := j;
        end;
    end;

    // 6. Вывод результата
    writeln('Наименьшая сумма элементов среди столбцов: ', minSum);
    writeln('Индекс столбца с наименьшей суммой: ', minIndex);
end.

В этом коде:

• Мы сначала вводим размеры матрицы.
• Затем заполняем матрицу случайными числами от 0 до 99.
• После этого вычисляем суммы для каждого столбца.
• И, наконец, находим наименьшую сумму и выводим её на экран.

Таким образом, вы можете использовать этот подход для решения задачи нахождения наименьшей суммы элементов среди столбцов матрицы на языке Паскаль.