Câu 1 :

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

Câu 2 :

uses crt;
var a : array[1..100] of integer;
n,i  : integer;
begin clrscr;
write('Nhap n :'); readln(n);
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]); end;
for i:=n downto 1 do write(a[i]:3);
readln
end.

Câu 3 :

uses crt;
var a : array[1..100] of integer;
n,i,j,k  : integer;
begin
write('Nhap n :'); readln(n);
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]); end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then begin
k:=a[i]; a[i]:=a[j]; a[j]:=k; end;
for i:=1 to n do write(a[i]:3);
readln
end.

Câu 4 :

Lần 1 : S:=0; i:=2'

Lần 2 : S:=0+2=2; i:=2+2=4;

Lần 3 : S:=2+4 = 6; i:=4+2=6;

Lần 4 : S:=6+6=12; i=6+2=8;

Dừng lại vòng lặp vì S<=10.

Câu 1:

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

Câu 2:

program ct;

ues crt;

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

      i,n:integer;

begin clrscr;

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

   for i:=1 to n do

     begin

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

     end;

   writeln('Chieu nguoc la cua day so la: ');

   for i:=n downto 1 do

     writeln(A[i]);

readln;

end.

Câu 3:

program ct;

ues crt;

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

      i,j,n,tg:integer;

begin clrscr;

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

   for i:=1 to n do

     begin

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

     end;

   for i:=1 to n-1 do

   for j:=i+1 to n do

     if A[i]>A[j] then

        begin

           tg:=A[i];

           A[i]:=A[j];

           A[j]:=tg;

        end;

   writeln('Day so sap xep theo thu tu tang dan la: ');

   for i:=1 to n do

     write(A[i]:3);

readln;

end.

Câu 4:

- Thực hiện 3 vòng lặp

   + Lần 1: i=2, S=2

   + Lần 2: i=4, S=6

   + Lần 3: i=6, S=12

- Khi kết thúc i=6, S=12

Học tốt!