1. Var <tên biến mảng> : array [<chỉ số đầu> .. <chỉ số cuối>] of <kiểu dữ liệu>;

2.

uses crt;

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

i, N, S : integer;

begin

clrscr;

S := 0;

write('Nhap so phan tu N = '); readln(N);

write('Nhap day gom ', N ,' so : ');

for i := 1 to N do 

    begin 

        read(A[i]);

        S := S + A[i]; 

    end;

write('Day da nhap : ');

for i := 1 to N do write(A[i], ' ');

writeln; writeln('Tong day so = ', S);

write('Day so chan : ');

for i := 1 to N do 

    if A[i] mod 2 = 0 then write(A[i], ' ');

writeln; write('Day so chan : ');

for i := 1 to N do

    if A[i] mod 2 <> 0 then write(A[i], ' ');

readln

end.