Тема: Процедуры и функции. Дана матрица размера 6 на 4. Найти сумму отрицательных…

Program matritsa; Uses crt; Var s: integer; {Переменная S — сумма} m: array[1… 6,1… 4]of integer; {матрица} i,j: byte; {Для использования циклов}Begin clrscr; {Очистка экрана} S: =0; {Обнуляем s} For i: =1 to 6 do {проходит столбцы} For j: =1 to 4 do {проходит строки} m[i,j]: =random (101) -50; {присваивает случайное значение от -50 до 50} For i: =1 to 6 do {проходит столбцы} Begin {начало операторных скобок} Writeln; {пропуск строки} For j: =1 to 4 do {проходит строки} Write (m[i,j]: 4); {вывод значения} End; {конец операторных скобок} Writeln; For i: =1 to 6 do {проходит столбцы} For j: =1 to 4 do {проходит строки} If m[i,j]<0 then {Проверка значения (меньше нуля?) } S: =s+m[i,j]; {увеличивает сумму на значение данного элемента} Writeln ('Сумма отрицательных элементов матрицы=',s); {Вывод}End.