надо прочитать матрицу NxN целых чисел. Идея есть, но она не работает
Код:
procedure TForm1.Button1Click(Sender: TObject);
var nproc,i,j:0..n;
a:matr;
begin
nproc:=upDown1.Position;
while nproc>=n do button1.Caption:='N должно быть меньше 100';
nproc:=nproc-1;
with stringgrid1 do
begin stringgrid1.ColCount:=updown1.Position-1;
stringgrid1.RowCount:=stringgrid1.ColCount-1;
for i:=0 to nproc do
for j:=0 to nproc do a[i,j]:=strToInt(cells[j,i]);
end
Moderatorial: Пользуемся тегами!!!