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.
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.