Пожалуйста помогите составить процедуру с помощью которой можно определить адреса элементов, значения которых в пределах от "p" до "q" в одномерном массиве...("q" и "p" с клавиатуры)
ну и если можно с помощью этой процедуры определить и вывести на экран адреса соответствующих элементов в столбцах двумерной матрицы...
Все просто ;)
const n=10;
type
TArray = array[1..n] of integer;
...
procedure GetIndx(x : TArray; p,q : integer);
var
i : byte;
begin
for i := 1 to n do
if (x[i]>p) and (x[i]<q) then writeln(i);
end;
procedure GetAdr(var x : TArray; p,q : integer);
var
i : byte;
pt : pointer;
begin
for i := 1 to n do
if (x[i]>p) and (x[i]<q) then begin
pt := addr(x[i]);
writeln(Seg(pt^),' : ', ofs(pt^));
end;
end;