Program a7_39;
uses crt;
const n=10;
var a:array[1..n] of integer;
i,x1,x2,x3,x4:integer;
n1,n2:boolean;
BEGIN
clrscr;
randomize;
writeln('Массив порядка ',n);
for i:=1 to n do
  begin
    a[i]:=random(9)-5;
    write(a[i]:3);
  end;
n1:=false;
n2:=false;
for i:=n downto 2 do
  if (a[i]>0) and (a[i-1]>=0) then
    begin
      n1:=true;
      x1:=i; x2:=i-1;
    end;
writeln;
if (n1=true)then
  begin
    writeln('В данном массиве есть два соседних положительных элемента');
    writeln('Номера этих элементов ',x2:2,' и ',x1:2);
  end
else
writeln('В данном массиве нету двух соседних положительных элементов');
END.