[omaryan]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  A: array [1..10] of byte;
  P: Pointer;
begin
  P := @A;
  //set second element of array to 100 using only operations with pointer "P"
  P := 100;
  ShowMessage(IntToStr(A[2]));
end;

Как мне присвоить второму элементу массива А значение 100, используя только операции c указателем Р?

[:S.p.a.m.]

А так не пойдет?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  A: array [1..10] of byte;
  P: ^byte;
begin
  P:=@A[2];
  P^:=5;

  ShowMessage(IntToStr(a[2]));
end;

[omaryan]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  A: array [1..10] of byte;
  P: Pointer;
begin
  P := @A;
  //set second element of array to 100 using only operations with pointer "P"
  //**********************
  P := 100;
  //**********************
  ShowMessage(IntToStr(A[2])); // "100"
end;

Нет, изменения должны быть внесены только в промежуток между звездочками. Другие варианты?

[Karsh]

боюсь, что только если так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
type
  TArr = array [1..10] of byte;
var
  A: TArr;
  P: Pointer;
begin
  P := @A;
  //set second element of array to 100 using only operations with pointer "P"
  //**********************
  TArr(P^)[2]:= 100;
  //**********************
  ShowMessage(IntToStr(A[2])); // "100"
end;