На главной диагонале все отрицательные элементы заменить нулями.

Var a: array [0… 9, 0… 9] of real; i, j: integer; begin for i: =0 to 9 do for j: =0 to 9 do a[i, j]: =random (999) — 500; for i: =0 to 9 do for j: =0 to 9 do if (i=j) and (a[i, j] < 0) then a[i, j]: =0; for i: =0 to 9 do begin writeln (); for j: =0 to 9 do write (a[i,j]: 5:0); end; end.