<?php
$Arr1 = [1, 2, 3];
$Arr2 = [4, $Arr1, 5];
$Arr3 = [];
$Arr3[] = 'Hello';
$Arr3[1] = $Arr2[2];
$Arr3[] = $Arr2;

print_r($Arr3);

procedure TForm1.Button1Click(Sender: TObject);
var
  A, b, C: Variant;
  I: integer;
begin
  A := 0;
  b := 0;
  C := 0;

  StartTime;
  for I := 1 to 1000 do
  begin
    A := (5 * I) / 2;
    b := b + (A / I) + b;
    C := (b - A) * A;
  end;

  ShowMessage(PrintTime(T1) + #13 + VarToStr(C))
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  A, b, C: TValue;
  I: integer;
begin
  A := 0;
  b := 0;
  C := 0;

  StartTime;
  for I := 1 to 1000 do
  begin
    A := (5 * I) / 2;
    b := b.AsExtended + (A.AsExtended / I) + b.AsExtended;
    C := (b.AsExtended - A.AsExtended) * A.AsExtended;
  end;

  ShowMessage(PrintTime(T1) + #13 + C.ToString)
end;

function TValue.AsExtended: Extended;
begin
  if not IsEmpty then
  begin
    if FTypeInfo = System.TypeInfo(Extended) then
      Exit(FAsExtended)
    else if FTypeInfo^.Kind = tkFloat then
      case GetTypeData(FTypeInfo)^.FloatType of
        ftSingle: Exit(FAsSingle);
        ftDouble: Exit(FAsDouble);
        ftExtended: Exit(FAsExtended);
      end;
  end;
  Result := AsType<Extended>;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  A, b, C: TValue;
  I: integer;
begin
  A := 0;
  b := 0;
  C := 0;

  StartTime;
  for I := 1 to 1000 do
  begin
    A := (5 * I) / 2;
    b := b.AsType<Extended> + (A.AsType<Extended> / I) + b.AsType<Extended>;
    C := (b.AsType<Extended> - A.AsType<Extended>) * A.AsType<Extended>;
  end;

  ShowMessage(PrintTime(T1) + #13 + C.ToString)
end;

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, rtti;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  T1: Int64;

function sprintf(S: PAnsiChar; const Format: PAnsiChar): integer; cdecl;
  varargs; external 'msvcrt.dll';

procedure StartTime;
begin
  QueryPerformanceCounter(T1);
end;

function PrintTime(T: Int64): AnsiString;
var
  A, b: Int64;
begin
  Result := '';
  if QueryPerformanceCounter(A) and QueryPerformanceFrequency(b) then
  begin
    SetLength(Result, 25);
    SetLength(Result, sprintf(PAnsiChar(Result), '%f', single((A - T) / b)));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  A, b, C: Variant;
  I: integer;
begin
  A := 0;
  b := 0;
  C := 0;

  StartTime;
  for I := 1 to 1000 do
  begin
    A := (5 * I) / 2;
    b := b + (A / I) + b;
    C := (b - A) * A;
  end;

  ShowMessage(PrintTime(T1) + #13 + VarToStr(C))
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  A, b, C: TValue;
  I: integer;
begin
  A := 0;
  b := 0;
  C := 0;

  StartTime;
  for I := 1 to 1000 do
  begin
    A := (5 * I) / 2;
    b := b.AsExtended + (A.AsExtended / I) + b.AsExtended;
    C := (b.AsExtended - A.AsExtended) * A.AsExtended;
  end;

  ShowMessage(PrintTime(T1) + #13 + C.ToString)
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  A, b, C: TValue;
  I: integer;
begin
  A := 0;
  b := 0;
  C := 0;

  StartTime;
  for I := 1 to 1000 do
  begin
    A := (5 * I) / 2;
    b := b.AsType<Extended> + (A.AsType<Extended> / I) + b.AsType<Extended>;
    C := (b.AsType<Extended> - A.AsType<Extended>) * A.AsType<Extended>;
  end;

  ShowMessage(PrintTime(T1) + #13 + C.ToString)
end;

end.

function GetExtended(var v: TValue): Extended; inline;
begin
  Result := 0;
  v.ExtractRawData(@Result);
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  A, b, C: TValue;
  I: integer;
begin
  A := 0;
  b := 0;
  C := 0;

  StartTime;
  for I := 1 to 1000 do
  begin
    A := (5 * I) / 2;
    b := GetExtended(b) + (GetExtended(A) / I) + GetExtended(b);
    C := (GetExtended(b) - GetExtended(A)) * GetExtended(A);
  end;

  ShowMessage(PrintTime(T1) + #13 + C.ToString)
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  A, b, C: Extended;
  I: integer;
begin
  A := 0;
  b := 0;
  C := 0;

  StartTime;
  for I := 1 to 1000 do
  begin
    A := (5 * I) / 2;
    b := (b) + ((A) / I) + (b);
    C := ((b) - (A)) * (A);
  end;

  ShowMessage(PrintTime(T1) + #13 + C.ToString)
end;

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, rtti,
  System.Generics.Collections;

type
  TBaseData = TDictionary<TValue, TValue>;
  TBaseDataPair = TPair<TValue, TValue>;

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    BaseData: TBaseData;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  BaseData := TBaseData.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  BaseData.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  idx: integer;
begin
  idx := BaseData.Count;
  BaseData.Add(idx, 'Test' + idx.ToString);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  v: TBaseDataPair;
  s: string;
begin
  s := '';
  for v in BaseData do
    s := s + v.Key.ToString + ' = ' + v.Value.ToString + #13;
  ShowMessage(s)
end;

end.

<?php
$fruits = array ( "fruits"  => array ( "a" => "апельсин",
                                       "b" => "банан",
                                       "c" => "яблоко"
                                     ),
                  "numbers"   => array ( 1,
                                       2,
                                       3,
                                       4,
                                       5,
                                       6
                                     ),
                  "holes"   => array (      "первая",
                                       5 => "вторая",
                                            "третья"
                                     )
                );

// Несколько примеров доступа к значениям предыдущего массива
echo $fruits["holes"][5];    // напечатает "вторая"
echo $fruits["fruits"]["a"]; // напечатает "апельсин"
unset($fruits["holes"][0]);  // удалит "первая"

// Создаст новый многомерный массив
$juices["apple"]["green"] = "good"; 
?>