1, cho dãy A gồm N phần tử (1<=N<=200)được nhập từ bàn phím .Hãy viết chương trình tính tổng các phần tử có chỉ số lẻ ( chẵn). 2, cho dãy A gồm N phần tử (1<=N<=200)được nhập từ bàn phím .Hãy viết chương trình tính tổng các phần tử có giá trị lẻ (chẵn)

1) chỉ số là số thự tự chỉ số phần tử VD: A[1] thì chỉ số là 1

* chẵn

program chi_so;

uses crt;

var A:array[1..200] of integer;

      n,i:byte;

      t:integer;

begin

        clrscr;

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

        for i:=1 to n do

                begin

                        write('A[',i,']= ');   readln(A[i]);

                        if i mod 2=0 then t:=t+A[i];

                end;

        write('Tong cac phan tu co chi so chan la: ',t);

        readln;

end.

*lẻ

program chi_so;

uses crt;

var A:array[1..200] of integer;

      n,i:byte;

      t:integer;

begin

        clrscr;

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

        for i:=1 to n do

                begin

                        write('A[',i,']= ');   readln(A[i]);

                        if i mod 2=1 then t:=t+A[i];

                end;

        write('Tong cac phan tu co chi so le la: ',t);

        readln;

end.

2) Giá trị của phần tử là giá trị của phần tử đó mang VD: A[3]=253 thì giá trị là 253

*Chẵn

program chi_so;

uses crt;

var A:array[1..200] of integer;

      n,i:byte;

      t:integer;

begin

        clrscr;

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

        for i:=1 to n do

                begin

                        write('A[',i,']= ');   readln(A[i]);

                        if A[i] mod 2=0 then t:=t+A[i];

                end;

        write('Tong cac phan tu co gia tri chan la: ',t);

        readln;

end.

*lẻ

program chi_so;

uses crt;

var A:array[1..200] of integer;

      n,i:byte;

      t:integer;

begin

        clrscr;

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

        for i:=1 to n do

                begin

                        write('A[',i,']= ');   readln(A[i]);

                        if A[i] mod 2=1 then t:=t+A[i];

                end;

        write('Tong cac phan tu co gia tri le la: ',t);

        readln;

end.