[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 указателем Р?