1.Cú pháp:

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

2. Bài làm

program so_le;

uses crt;

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

      n,i,d:byte;

begin

       clrscr;

       write('Nhap so luong phan tu: ');   readln(n);

       d:=0;

       for i:=1 to n do

                begin

                        write('Nhap so thu ',i,': ');   readln(A[i]);

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

                end;

       if d=0 then write('Khong co so le trong mang')

       else

                begin

                        write('Cac so le la: ');

                        for i:=1 to n do

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

                end;

       readln;

end.

1. Cú pháp: <tên mảng>:array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;

2.

uses crt;
var i,n:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write('Nhap so phan tu (toi da 10 phan tu): ');readln(n);
   for i:=1 to n do
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
      end;
   write('Cac so le: ');
   for i:=1 to n do if a[i] mod 2=1 then write(a[i],' ');
readln
end.