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.