Процедуры и функции

[andriy1048]

Ну эта прога по моему должна реализоватся через StringGrid

[newerow1989]

Добавить StringGrid1 размером 21х21 и изменить:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Label2.Caption:='';
   For i:=1 to n+1 do
      For j:=1 to n+1 do
         x[i-1,j-1]:=StrToInt(StringGrid1.Cells[i,j]);
   vec;
   For i:=1 to n do
   begin
      Label2.Caption:=Label2.Caption+'  '+IntToStr(y[i]);
      If i mod 5=0 then
         Label2.Caption:=Label2.Caption+#13#10;
   end;
end;

Так что ли?

[andriy1048]

Сейчас попробую)