Chuyên tin giúp mình với mình cần gấp 1. viết cú pháp câu lệnh khai báo trực tiếp biến mảng một chiều trong NNLT pascal. 2. Viết chương trình nhập và

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.