Дана матрица размера 5 x 9. Найти суммы элементов всех ее нечетных столбцов - Pascal ABC

Формулировка задачи:

Дана матрица размера 5 x 9. Найти суммы элементов всех ее нечетных столбцов

Решение задачи: «Дана матрица размера 5 x 9. Найти суммы элементов всех ее нечетных столбцов»

Листинг программы

var i, j, k, s: integer;
    a: array [1..5, 1..9] of integer;
begin
  randomize;
  writeln('Исходная матрица:');
  for i := 1 to 5 do
    begin
      for j := 1 to 9 do
        begin
          a[i, j] := -99 + random(199);
          write(a[i, j]:4)
        end;
      writeln
    end;
  writeln('Суммы элементов нечётных столбцов:');
  for j := 0 to 9 div 2 do
    begin
      k := j * 2 + 1;
      s := a[1, k];
      for i := 2 to 5 do s := s + a[i, k];
      writeln('S(', k, ') = ', s)
    end;
  readln
end.

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

В данном коде используется язык программирования Pascal ABC. Он предназначен для решения задач в области математики и информатики. Переменные в данном коде имеют следующие значения:

i, j, k, s - целые числа;
a - массив размером 5 x 9, содержащий целые числа. Код начинается с объявления переменных i, j, k, s типа integer. Затем определяется массив a размером 5 x 9, где каждый элемент имеет тип integer. Далее происходит генерация случайных чисел для каждого элемента массива a. Затем выводится исходная матрица, состоящая из элементов массива a. После этого выводятся суммы элементов нечётных столбцов матрицы. Для каждого столбца, начиная с 0 и заканчивая 9, вычисляется сумма элементов, начиная с первого элемента и до элемента, чья строка делится на 2 без остатка. Наконец, код завершается чтением пользовательского ввода.