Определить в каком столбце матрицы сумма элементов меньше - Turbo Pascal
Формулировка задачи:
драствуйте!!! Помогите пожалуйста с написанием програмы на турбо паскале!!!! Брат проболел очень долго а в техникуме требуют программы, а я занимался этим последний раз 9 лет назад и ничего не помню!!!!
Дан двухмерный массив. Определить в каком столбце массива сумма элементов меньше: во втором или в последнем???
Решение задачи: «Определить в каком столбце матрицы сумма элементов меньше»
textual
Листинг программы
const n = 5; m = 6; var a : array [1..n, 1..m] of integer; i, j, s2, sm : integer; begin s2 := 0; sm := 0; randomize; for i := 1 to n do begin for j := 1 to m do begin a[i,j] := random(50) - 25; write(a[i,j]:4); if j = 2 then s2 := s2 + a[i,j]; if j = m then sm := sm + a[i,j] end; writeln end; writeln('сумма во 2 столбце: ', s2); writeln('сумма в ', m, ' столбце: ', sm); if s2 < sm then writeln('сумма в 2 столбце меньше') else if s2 = sm then writeln('суммы равны') else writeln('сумма в ', m, ' столбце меньше'); readln end.
Объяснение кода листинга программы
- В начале объявляются переменные n, m и a. Переменная n и m задают количество строк и столбцов в матрице соответственно. Переменная a представляет собой матрицу целых чисел размером n на m.
- Далее инициализируются две переменные s2 и sm, которые будут использоваться для хранения суммы элементов во втором и m-ом столбцах соответственно.
- Затем используется цикл randomize для инициализации генератора случайных чисел.
- Внутренний цикл for i := 1 to n do выполняется для каждой строки матрицы.
- В каждой итерации внутреннего цикла происходит заполнение элементов матрицы a[i,j] случайными числами от 0 до 50.
- После заполнения матрицы выполняется внешний цикл for j := 1 to m do, который проходит по каждому столбцу матрицы.
- Во внутреннем цикле проверяется условие j = 2. Если это условие выполняется, то к переменной s2 прибавляется значение элемента a[i,j]. Таким образом, сумма элементов во втором столбце увеличивается на текущее значение a[i,j].
- После завершения внутреннего цикла проверяется условие j = m. Если это условие выполняется, то к переменной sm прибавляется значение элемента a[i,j]. Таким образом, сумма элементов в m-ом столбце увеличивается на текущее значение a[i,j].
- После выполнения всех итераций внутреннего цикла выводится информация о суммах в двух и m-ом столбцах.
- В конце программы считывается ввод пользователя с помощью функции readln.