Определить в каком столбце матрицы сумма элементов меньше - 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.

Объяснение кода листинга программы

  1. В начале объявляются переменные n, m и a. Переменная n и m задают количество строк и столбцов в матрице соответственно. Переменная a представляет собой матрицу целых чисел размером n на m.
  2. Далее инициализируются две переменные s2 и sm, которые будут использоваться для хранения суммы элементов во втором и m-ом столбцах соответственно.
  3. Затем используется цикл randomize для инициализации генератора случайных чисел.
  4. Внутренний цикл for i := 1 to n do выполняется для каждой строки матрицы.
  5. В каждой итерации внутреннего цикла происходит заполнение элементов матрицы a[i,j] случайными числами от 0 до 50.
  6. После заполнения матрицы выполняется внешний цикл for j := 1 to m do, который проходит по каждому столбцу матрицы.
  7. Во внутреннем цикле проверяется условие j = 2. Если это условие выполняется, то к переменной s2 прибавляется значение элемента a[i,j]. Таким образом, сумма элементов во втором столбце увеличивается на текущее значение a[i,j].
  8. После завершения внутреннего цикла проверяется условие j = m. Если это условие выполняется, то к переменной sm прибавляется значение элемента a[i,j]. Таким образом, сумма элементов в m-ом столбце увеличивается на текущее значение a[i,j].
  9. После выполнения всех итераций внутреннего цикла выводится информация о суммах в двух и m-ом столбцах.
  10. В конце программы считывается ввод пользователя с помощью функции readln.

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы