Câu 5:
a. s:=1;
Đặt s=1.
for i:=1 to 6 do s:=s*i;
cho i=1 lặp lại đến khi i=6, s=s*i.
Lần 1: i:=2; s:=2;
Lần 2: i:=3; s:=6;
Lần 3: i:=4; s:=24;
Lần 4: i:=5; s:=120;
Lần 5: i:=6; s:=720;
Vậy s=720.
b. T:=A[3]+A[5]+A[2]+5=1+2+7+5=15
Câu 6:
uses crt;
var a:array[1..100] of integer;n,i,max,min:integer;
begin
   clrscr;
   write('Nhap so luong phan tu: '); readln(n);
   writeln('Nhap tung phan tu: ');
   for i:=1 to n do
        begin
           write('a[',i,']: '); readln(a[i]);
        end;
   max:=a[1];min:=a[1];
   for i:=2 to n do
        begin
           if a[i]>max then max:=a[i];
           if a[i]<min then min:=a[i];
        end;
    writeln('Gia tri lon nhat: ',max);
    write('Gia tri nho nhat: ',min);
    readln;
end.