Написать программу которая даст таблицу Q5*5

var a,b,i,j,p,o: integer; z: real; m: array[0… 31,0… 31] of integer; beginrandomize; for i: =1 to 5 do for j: =1 to 5 do begin z: =random; b: =random (31); if z<0,5 then m[i,j]: =b; if z>0,5 then m[i,j]: =-b; end; for i: =1 to 5 do for j: =1 to 5 do begin if m[i,j]>0 then p: =p+m[i,j]; if m[i,j]<0 then o: =o+m[i,j]; end; write (p,',o); end. Мда. Подумать над задачкой пришлось немного) но вот результат)