Найти сумму элементов каждой строки матрицы - Pascal (7833)

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

Дан двумерный массив . Найти: а) сумму элементов каждой строки б) сумму элементов каждого столбца

Решение задачи: «Найти сумму элементов каждой строки матрицы»

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

program TP_1;
uses crt;
const n=10;
var a:array [1..n,1..n] of word;
     i,j,s1:word;
BEGIN
RANDOMIZE;
        clrscr;
        for i:=1 to n do for j:=1 to n do a[i,j]:=random(100);
        for j:=1 to n do 
        begin
               s1:=0;
               for j:=1 to n do s1:=s1+a[i,j];
               writeln('Сумма элементов строки № ',i,'=',s1);
        end;
        for j:=1 to n do
        begin
              s1:=0;
              for i:=1 to n do s1:=s1+a[i,j];
              writeln('Сумма элементов столбца № ',j,'=',s1);
        end;
        readln;
END.

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

В данном коде используется язык программирования Pascal. Он предназначен для решения задач, связанных с обработкой данных. В начале кода объявляются необходимые переменные: n (константа, равная 10), a (массив размером 10x10), i, j, s1 (все три - слова, то есть целочисленные типы данных). Далее происходит инициализация массива случайными числами от 0 до 99. Затем идет цикл, в котором для каждой строки матрицы вычисляется сумма ее элементов. Для этого используется вложенный цикл, который проходит по каждому элементу строки. После этого выводится сообщение с номером строки и суммой ее элементов. Затем также происходит вывод суммы элементов каждого столбца матрицы. В конце программы предлагается ввести данные, которые будут использоваться при следующем запуске программы. Таким образом, данный код решает задачу подсчета суммы элементов каждой строки и каждого столбца матрицы.