*Lập trình pascal. Lưu ý dùng longint. Không dùng array, dấu [ ], true fasle. Đc sử dụng while, if, for. Cảm ơn nhìu. Làm hết lun ạ 60 điểm lận đó nếu ko bị cờ đỏ nha. giúp em ah quân ơi :))

69.

program phuongt;
uses crt;
  var n, x, s1, s2, s: integer;
begin
       clrscr;
       write('Nhap n = '); readln(n);
       i:=1;
       s1:=0;
       s2:=0;
       while i<=n do
       begin
              write('Nhap so thu ', i, ': '); readln(x);
              if x mod 2 = 0 then s2:=s2+x else s1:=s1+x;
       end;
       s:=s1-s2;
       write('Gia tri = ', s);
       readln
end.

70.

program phuongt;
uses crt;
  var n, x, s1, s2, s: integer;
begin
       clrscr;
       write('Nhap n = '); readln(n);
       i:=1;
       s1:=0;
       s2:=0;
       while i<=n do
       begin
              write('Nhap so thu ', i, ': '); readln(x);
              if x>0 then if x mod 2 = 0 then s2:=s2+x else s1:=s1+x;
       end;
       s:=s1-s2;
       write('Gia tri = ', s);
       readln
end.

71.

program phuongt;
uses crt;
  var n, i, x, t, a, c, s: integer;
begin
        clrscr;
        write('Nhap n = '); readln(n);
        i:=1;
        c:=0;
        s:=0;
        t:=0;
        a:=1;
        while i<=n do
        begin
                write('Nhap so thu ', i, ': '); readln(x);
                t:=a;
                a:=x;
                if t>a then c:=t-a else c:=a-t;
                s:=s+c;
                i:=i+1;
        end;
        write('Tong do chenh lech giua 2 gia tri lien ke nhau: ', s);
        readln
end.

72.

program phuongt;
uses crt;
  var n, i, x, t, a, c, s: integer;
begin
        clrscr;
        write('Nhap n = '); readln(n);
        i:=1;
        c:=0;
        s:=0;
        t:=0;
        a:=1;
        while i<=n do
        begin
                write('Nhap so thu ', i, ': '); readln(x);
                t:=a;
                a:=x;
                if t>a then c:=t-a else c:=a-t;
                if s<c then s:=c;
                i:=i+1;
        end;
        write('Do chenh lech lon nhat giua 2 gia tri lien ke nhau: ', s);
        readln
end.