12 5

76: 7 7 : 78: 79: 80 : 81: 82: 83: 84: 85: 86: 87: 88: 89: 90: 91: 92: 93: 94 : 95: 96:

97    :

98    : 99:

100:

var

i, j : integer;

A,B : integer; begin

RadioGroupl.Itemlndex:=-l;

Gaugel.Visible:=False;

A: =-10;

B: = 10;

for i:=l to N do for j:=1 to N do begin

X[i,j]:=RandomRange(A, B) ;

StringGridl.Cells[j-l,i-l]:=IntToStr(X[i,j]) end;

end;

procedur© TForml.RadioGrouplClick(Sender; TObject); begin

case RadioGroupl.Itemlndex of

0    : Dodatnie;

1    : Ujemne; end;

end;

end.