DÃY ĐAN DẤU TRONG PASCAL

DÃY ĐAN DẤU TRONG PASCAL

Dãy đan dấu là dãy không có 2 phần tử cạnh nhau có dấu giống nhau.
ví dụ: -2 4 -9 5 -23 8 là dãy đan dấu
Thủ tục kiểm tra dãy đan dấu trong dãy số:
procedure dandau;
var i,j:integer;
    kt:boolean;
begin
kt:=true;
for i:=1 to N-1 do
                begin
                j:=i+1;
                if a[i] *a[j] >0 then kt:=false;
                end;

If kt=true then write('Day A la day dan dau')
else write('Day A khong phai day dan dau');

end;