Тема: процедуры и функции. дана матрица размера 6 на 4. найти сумму отрицательных элементов всей матрицы. через процедуру ввода и вывода и объясните каждую строчку.

223

388

Посмотреть ответы 2

Ответы на вопрос:

Catlove333

Информатика

4,8(51 оценок)

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.