Дана матрица размера 6 на 4. Найти сумму отрицательных элементов всей матрицы.…

Program Pr1; uses crt; type mas=array[1… 6,1… 4] of integer; var mass: mas; procedure inputmas (var mass: mas); var i,j: integer; begin randomize; for i: =1 to 6 do for j: =1 to 4 do begin write ('Vvedite v ',i,'-oi stroke ',j,' simvol '); read (mass[i,j]); end; clrscr; end; procedure outputmas (mass: mas); var i,j: integer; begin for i: =1 to 6 do for j: =1 to 4 do begin gotoxy (j,i); write (mass[i,j]); end; end; function uslovie (mass: mas): integer; var i,j,a: integer; Begin a: =0; for i: =1 to 6 do for j: =1 to 4 do if mass[i,j]<0 then a: =a+mass[i,j]; writeln (); writeln (a); end; Beginclrscr; inputmas (mass); outputmas (mass); uslovie (mass); end.