Найти сумму отрицательных элементов матрицы - Turbo Pascal (113399)

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

дана исходная матрица А:

||-12    1     2   -21||
|| 11  -14    13     8||
||  9    7     1     3||
||  5    0   -10     2||

найти сумму отрицательных элементов всей матрицы, SOT.

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

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

program z;
uses crt;
var i,j,s:integer;
const a:array [1..4,1..4] of integer=((-12,1,2,-21),
                                      (11,-14,13,8),
                                      (9,7,1,3),
                                      (5,0,-10,2));
begin
     clrscr;
     s:=0;
     for i:=1 to 4 do
         for j:=1 to 4 do
             if a[i,j]<0
                then
                    s:=s+a[i,j];
     writeln('Сумма отрицательных элементов матрицы: ',s);
     readln;
end.

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

В данном коде на языке Turbo Pascal решается задача нахождения суммы отрицательных элементов матрицы. Переменная a представляет собой матрицу размером 4x4, где каждый элемент матрицы является целым числом. Значения элементов матрицы представлены в виде пары чисел, разделенных запятой. Например, первый элемент матрицы (-12,1) означает, что первый столбец матрицы содержит числа -12 и 1. Внутри цикла for происходит итерация по всем элементам матрицы. Внутри вложенного цикла for происходит проверка условия if a[i,j]<0, где i и j - индексы текущего элемента матрицы. Если условие истинно, то значение текущего элемента добавляется к переменной s, которая инициализирована нулем. После завершения циклов происходит вывод значения переменной s на экран с помощью функции writeln. Затем происходит чтение значения переменной s с помощью функции readln. Таким образом, данный код позволяет найти сумму отрицательных элементов матрицы и вывести ее на экран.