Найти сумму отрицательных элементов матрицы - Turbo Pascal (113399)
Формулировка задачи:
Решение задачи: «Найти сумму отрицательных элементов матрицы»
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.
Таким образом, данный код позволяет найти сумму отрицательных элементов матрицы и вывести ее на экран.