Задача в паскале абс, на одномерные массивы. Если хотя бы один элемент одномерного массива отрицательный, то вывести сообщение «ЭЛЕМЕНТ ОТРИЦАТЕЛЬНЫЙ ЕСТЬ», иначе «ВСЕ ПОЛОЖИТЕЛЬНЫЕ».

var a: array of integer;

n: integer;

begin

   write('Введите размер массива: ');

   readln(n);

   SetLength(a, n);

   for var i:=0 to n-1 do

   begin

       a[i] := random(-2, 30);

       write(a[i], ' ');

   end;

   writeln();

   var answer := 'ВСЕ ПОЛОЖИТЕЛЬНЫЕ';

   for var i:=0 to n-1 do

   begin

       if a[i] < 0 then

       begin

           answer := 'ЭЛЕМЕНТ ОТРИЦАТЕЛЬНЫЙ ЕСТЬ';

           break;

       end;

   end;

   writeln(answer);

end.

Уже отвечал, но все же такое решение актуальнее: 

var 
ar:array[1..10] of integer;
max,min,i,kmax,kmin:integer;
begin
randomize;

max:=0;
min:=1000;

for i:=1 to 10 do begin  
ar[i]:=random(1000)+1;  
if (ar[i] > max) then 
  begin max:=ar[i]; kmax:=i; end 
    else if (ar[i] < min) then begin min:=ar[i]; kmin:=i; 
end;  
write(ar[i],' ');
end;

writeln();

if (kmax > kmin) then for i:=kmin+1 to kmax-1 do write(i,' ') 
  else if (kmax < kmin) then for i:=kmax+1 to kmin-1 do write(i,' ');
end.

P.S. В решении выше есть далеко ни одна ошибка ;)

Питаются кагуаны исключительно растительной пищей — листвой, почками, цветами и деревьев. большую часть рациона составляют молодые листья.  редко вокруг какого животного ведется столько споров, как вокруг кагуанов. это животное, размером с кошку, одни причисляют к «летающим» землеройкам, другие к лемурам, а некоторые выделяют когуана вообще в отдельный отряд. внешне, особенно мордочкой, он действительно похож на лемура, а вот зубы типичны для грызунов.  самая же отличительная черта когуана – перепонка, с которой он летает. перепонка натянута от подбородка через концы лап до кончика не длинного хвоста и представляет собой этакий парашют. кстати, парашют у кагуаны самый большой среди «летающих» животных (кроме птиц и летающих мышей к полетам причастны белки-летяги, сумчатые летяги, обезьяны колобус, летающие ящерицы или драконы, а также летающие лягушки и даже рыбы)