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ào một mảng một chiều, tối đa 10 phần tử, có kiểu số nguyên. Sau đó hãy đưa ra màn hình các số lẻ

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.