Процедура определения адресов, в одномерном массиве Опции

[Roma]

Пожалуйста помогите составить процедуру с помощью которой можно определить адреса элементов, значения которых в пределах от "p" до "q" в одномерном массиве...("q" и "p" с клавиатуры)

ну и если можно с помощью этой процедуры определить и вывести на экран адреса соответствующих элементов в столбцах двумерной матрицы...

[klem4]

Все просто ;)

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;