Chương trình sau giải quyết vấn đề gì?

  Var   a:array[1..4] of integer;

  Begin

        For i:=1 to 4 do

        Begin

           Write('nhap cac phan tu A[',i,']:');

            readln (a[i]);

        End;

        For i:=1 to 3 do

        For j:= I+1 to 4 do

             If a[i]> a[j] then

               Begin

                   tg:=a[i];

                   a[i]:=a[j];

                   a[j]:=tg;

               end;

         For I:=1 to  4 do

         Write(a[i]);

    End.

Select one:

a. sắp xếp các phần tử của mảng theo trật tự tăng dần

b. Tìm Max

c. sắp xếp các phần tử của mảng theo trật tự giảm dần

d. Chương trình có lỗi

Câu 1: Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số. Độ dài của dãy cũng được nhập từ bàn phím

CT mẫu:

uses crt;

var n,i:integer;

a:array[1..100] of integer;

Begin

clrscr;

write('nhap so phan tu cua day:');  readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

writeln('day so da nhap:');

for i:=1 to n do write(a[i]:2);

readln;

end.

giúp mình với mình cảm ơn trước

Cách khai báo biến mảng sau đây đúng hay sai? Nếu sai giải thích tại sao?

a) Var X: Array[10 , 13] of real;

b) Var X: Array[3..4.8] of integer;

c) Var X: Array(10..1) of integer;

d) Var X: Array[-7..7] of integer;