Nhập vào mảng a chứa n số nguyên từ a1...aN (N<= 100) a) Tính tổng các giá trị mảng b ) Tính tổng các số chẵn và số lẻ c) kiểm tra mảng A có phải là cấp số cộng hay kh?

uses crt;

var n,i:byte;

a:array[1..100] of integer;

    tong,tongchan,tongle:integer;

    kt:boolean;

BEGIN

        clrscr;

        tong:=0; tongle:=tong; tongchan:=0;

        write('Nhap N:'); readln(n);

        for i:=1 to n do

        begin

                write('Nhap a[',i,']:');

                readln(a[i]);

                tong:=tong+a[i];

                if a[i] mod 2=0 then tongchan:=tongchan+a[i]

                else if a[i] mod 2=1 then tongle:=tongle+a[i];

        end;

        kt:=true;

        for i:=2 to n-1 do

        if abs(a[i]-a[i-1])<>abs(a[i+1]-a[i]) then

        begin

                kt:=false;

                break;

        end;

        writeln('a)',tong);

        writeln('b)Tong chan:',tongchan);

        writeln('  Tong le:',tongle);

        write('c)');

        if kt=true then write('Phai')

        else write('Khong');

        readln

END.

Chúc bạn học tốt!