Var a: array[1..1000] of vitri;
b: array[1..1000] of tacdong;
m,n,i,j,d:integer;
fi,fo:text;
BEGIN
Read(fi,m,n);
For i := 1 to m do Read(fi,vt[i].p);
For i := 1 to n do Read(fi,b[i].l,td[i].r,b[i].x);
Close(fi);
For i := 1 to m do a[i].dc := 0;
For i := 1 to n do
begin
For j := 1 to m do
begin
If ((a[j].p >= b[i].l) and (a[j].p <= b[i].r)) then
begin
d:= a[j].p - b[i].l;
If odd(d) then a[j].dc := a[j].dc - b[i].x
else a[j].dc := a[j].dc + b[i].x;
end;
end;
end;
rewrite(fo);
For i := 1 to m do writeln(fo,a[i].b);
close(fo);
END.

`\text{Cho mình xin ctlhn!}`

Mình sẽ lần lượt khai báo 2 mảng. Dùng record để ghi lại

- Mảng đầu tiên là vt. Các phần tử gồm 2 trường

    + P: vị trí trên bản đồ

     + dc : độ cao mực nước của từng vị trí

- Mảng thứ 2 là td. Các phần tử gồm 2 trường

     + l : vt đầu

     + r : vt cuối

      + x: số tăng hay giảm của mực nước

Trong bài nói tại các vị trí

 + i , i+2,i+4,... : mực nước sẽ tăng

 + i + 1, i + 3,...: mực nước sẽ giảm

Nên mình tạo biến d := vt[i].p - td[j].l để xác định tăng hay giảm

Code

Program vidu;
Uses crt;
type tacdong=record
        l:integer;
        r:integer;
        x:integer;
        End;
    vitri = record
       p:integer;
       dc:integer;
       End;
Var vt:array[1..1000] of vitri;
td:array[1..1000] of tacdong;
m,n,i,j,d:integer;
fi,fo:text;
BEGIN
assign(fi,'cau2.inp');
assign(fo,'cau2.out');
reset(fi);
Readln(fi,m,n);
For i := 1 to m do Readln(fi,vt[i].p);
For i := 1 to n do Readln(fi,td[i].l,td[i].r,td[i].x);
Close(fi);
For i := 1 to m do vt[i].dc := 0;
For i := 1 to n do
begin
        For j := 1 to m do
        begin
        If ((vt[j].p >= td[i].l) and (vt[j].p <= td[i].r)) then
                begin
                d:= vt[j].p - td[i].l;
                If odd(d) then vt[j].dc := vt[j].dc - td[i].x
                else vt[j].dc := vt[j].dc + td[i].x;
                end;
        end;
end;
rewrite(fo);
For i := 1 to m do writeln(fo,vt[i].dc);
close(fo);
END.