Bài 1: Mình sẽ so sánh từng điểm đầu và cuối của từng đoạn thẳng sau. Neu diem cuoi cua doan nay lon hon diem dau cua doan kia minh se đếm số điểm nguyen trung nhau của hai đoạn 

Code

Program giaodiem;
Uses crt;
Var a,b:array[1..100000] of longint;
i,j,n,d,x,y:longint;
fi,fo:text;
BEGIN
assign(fi,'giaodiem.inp');
assign(fo,'giaodiem.out');
reset(fi);
Readln(fi,n);
d:=0;
For i:= 1 to n do
begin
Read(a[i]); Readln(b[i]);
end;
close(fi);

For i:=1 to n-1 do
begin
For j:= i+1 to n do
        begin
        if b[i] >= a[j] then
                begin
                For x:=a[i] to b[i] do
                        For y:=a[j] to b[j] do
                        if x = y then inc(d);
                end;
        end;
end;
rewrite(fo);
Writeln(fo,d);
close(fo);
END.

Bài 2: Mình sẽ cho chạy hai vòng lặp với i,j lần lượt là biến đếm nếu khoảng cách khán giả = chiều cao((j-i)=(a[i]+a[j])) thì tính là 1 cặp

Code:

Program chonkg;
Uses crt;
Var a:array[1..100000] of longint;
kg,n,i,j:longint;
fi,fo:text;
BEGIN
kg:=0;
assign(fi,'chonkg.inp');
assign(fo,'chonkg.out');
Reset(fi);
Readln(fi,n);
For i:=1 to n do read(fi,a[i]);
close(fi);
For i:=1 to n do
        For j := i+1 to n do
        if (j-i)=(a[i]+a[j]) then inc(kg);
Rewrite(fo);
Write(fo,kg);
close(fo);
END.