Tin học Kiểu mảng

[xuanthanhqmp]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập vào 1 dãy số nguyên dương a gồm n phần tử (n<200)
a. Cho biết các phần tử trong dãy a có tạo thành 1 cấp số cộng không?
b. Tạo mảng b với phần tử b là tổng của i phần tử đầu tiên của a.
Giúp mình với ạ

 

[CuongGrove]

Var a : array[1..199] of longword;
    n,i : byte;
    kiemTra : boolean;
Begin
    Writeln('Hay nhap so phan tu cua day so : ');Readln(n);
    For i:=1 to n do
        Begin
            Write('Hay nhap phan tu thu ',i,' : ');Readln(a[i]);
        End;
    kiemTra:=true;   
    For i:=2 to n-1 do If a[i+1] - a[i] <> a[i] - a[i-1] then kiemTra:=false;
    If kiemTra = false then Writeln('Day khong phai la day cap so cong')
    Else Writeln('Day la mang cap so cong');
    Readln;

End.

Đây là câu a, còn câu b bạn giải thích kĩ hơn đc k?