Заполнить массив У(10) случайными значениями. Организовать вывод на экран. Присвоить указателю адрес начала размещения массива в памяти - Turbo Pascal

Формулировка задачи:

Заполнить массив У(10) случайными значениями. Организовать вывод на экран. Присвоить указателю адрес начала размещения массива в памяти. Напечатать значения первой половины элементов массива. Присвоить указателю адрес 9-го элемента, напечатать его значение, используя текущий базовый адрес сегмента и смещение с преобразованием в значение типа указатель. Заменить его содержимое на значение 5-го элемента, уменьшенное на 0.02. Напечатать его новое значение.

Решение задачи: «Заполнить массив У(10) случайными значениями. Организовать вывод на экран. Присвоить указателю адрес начала размещения массива в памяти»

Листинг программы

p:=@y[9]; {или} p:=Addr(y[9]);
WriteLn(Seg(p^),':',Ofs(p^));

Объяснение кода листинга программы

Создаётся переменная p типа Pointer и ей присваивается значение @y[9]. Это означает, что указатель p будет указывать на девятый элемент массива y.
Выводится на экран смещение (Ofs(p^)) и сегмент (Seg(p^)) указателя p относительно начала памяти.
Выводится на экран значение p, которое является адресом начала размещения массива в памяти.