1. var a : array [1..10] of integer;

2.

for i := 1 to 10 do

      read(a[i]);

3.

for i := 1 to 10 do

      write(a[i], ' '); //Các số in cách nhau bởi dấu cách

4. 

a)

for i := 1 to 10 do

      if a[i] mod 2 = 0 then

            tongSoChan := tongSoChan + a[i];

write(tongSoChan);

b)

for i := 1 to 10 do

      if a[i] mod 2 <> 0 then

            soSoLe := soSoLe + 1;

write(soSoLe);

c)

for i := 1 to 10 do
      if (a[i] mod 2 = 0) or (a[i] mod 3 = 0) then

            tich := tich * a[i];

write(tich);

* Lưu ý: Các biến tongSoChan, soSoLe, tich, i giả sử đã được khai báo ở đầu chương trình

Một chương trình hoàn chỉnh thực hiện tất cả các yêu cầu trên

var a : array [1..10] of integer; //Khai báo mảng 1 chiều

      i : byte;

      tongSoChan, soSoLe, tich : longint; 

begin

      tongSoChan := 0; soSoLe := 0; tich := 1; //Khởi tạo giá trị biến

      //Nhập mảng

      for i := 1 to 10 do

            read(a[i]);

      //In mảng

      for i := 1 to 10 do

            write(a[i], ' '); 

      //Tính (ý 4)

      for i := 1 to 10 do

            if a[i] mod 2 = 0 then //tính ý 4a

                  tongSoChan := tongSoChan + a[i]

            else //Đếm các số lẻ

                  soSoLe := soSoLe + 1;

            if (a[i] mod 2 = 0) or (a[i] mod 3 = 0) then //tính ý 4c

                  tich := tich * a[i];

      //In kết quả

      writeln('Tong cac so chan: ', tongSoChan);

      writeln('So cac so le: ', soSoLe);

      writeln('Tich: ', tich);

end.

uses crt;

var a : array[1 .. 10] of longint;

i, s1, d2, t : longint;

begin

clrscr;

s1 := 0; d2 := 0; t := 1;

i := 1; while i <= 10 do

begin

write('Nhap phan tu thu ', i ,' : '); readln(a[i]);

if (a[i] >= 500) and (a[i] <= 10000)

then i := i + 1 else i := i;

end;

for i := 1 to 10 do

begin if a[i] mod 2 = 0

then s1 := s1 + a[i] else d2 := d2 + 1;

if (a[i] mod 2 = 0) and (a[i] mod 3 = 0) then t := t * a[i];

end;

writeln('Tong so chan : ', s1);

writeln('Co ', d2 ,' so le');

writeln('Tich = ', t);

readln

end.