Sắp đến tỉnh quyết định đầu tư tuyến xe điện từ biển Triệu Lăng lên Đông Hà. Tuyến có n điểm dừng, được đánh số từ 1 đến n theo thứ tự chuyển động của xe điện. Theo khảo sát tại điểm dừng thứ i sẽ có a[i] khách xuống xe và b[i] khách lên xe. Xe điện trống trước khi nó đến điểm dừng chân đầu tiên. Ngoài ra, khi xe điện đến điểm dừng cuối cùng, tất cả hành khách sẽ xuống để nó trở nên trống rỗng. Nhiệm vụ của bạn là tính toán số ghế tối thiểu của xe điện sao cho bất cứ lúc nào mỗi khách hàng đều có ghế riêng để ngồi. Lưu ý rằng tại mỗi điểm dừng, tất cả hành khách xuống sẽ xuống trước khi bất kỳ hành khách nào vào xe điện. Dữ liệu nhập: - Nhập n ( 2   n   1000 ) - số điểm dừng của xe điện. - Sau đó n lần tiếp theo, mỗi lần nhập hai số nguyên ai và bi ( 0   ai ,  bi   1000.000) - số lượng hành khách xuống và lên tại điểm dừng i. Các điểm dừng được đưa từ điểm dừng đầu tiên đến điểm dừng cuối cùng theo thứ tự chuyển động của xe điện. Kết quả: in một số nguyên biểu thị số ghế tối thiểu cần có. dùng ngôn ngữ free pascal ai giúp e vss ạ em cảm ơn nhìu nhìu

program SharkCode;

Uses crt;
var
  n, i, minSeats, totalSeats, passengersOn, passengersOff: integer;
  a, b: array[1..1000] of integer;
begin

Clrscr;
  write('Nhap so diem dung cua xe dien: ');
  readln(n);
  for i := 1 to n do
  begin
    write('Nhap so luong hanh khach xuong tai diem dung ', i, ': ');
    readln(a[i]);
    write('Nhap so luong hanh khach len tai diem dung ', i, ': ');
    readln(b[i]);
  end;
  minSeats := 0;
  totalSeats := 0;
  passengersOn := 0;
  passengersOff := 0;
  for i := 1 to n do
  begin
    passengersOff := passengersOff + a[i];
    passengersOn := passengersOn + b[i];
    totalSeats := passengersOn - passengersOff;
    if totalSeats < 0 then
    begin
      minSeats := minSeats + abs(totalSeats);
      totalSeats := 0;
    end;
  end;
  writeln('So ghe toi thieu can co: ', minSeats);
end.

Chương trình trên giả định rằng số ghế trống ban đầu là không giới hạn, Passengers on và off là khách đi lên và xuống

`\color{red}{\text{@hoangduy67}}`

var a:array[1..100005] of int64;
   i,x:longint;
   m,dem,g:int64;
   b:array[1..1000005] of int64;
begin
   readln(m);
   for i:=1 to m do read(a[i],b[i]);
   for i:=1 to m do
   begin
   g:=g-a[i]+b[i];
   if g>dem then dem:=g;
   end;
   write(dem);
   readln;
end.