Câu 5:

uses crt;
var i,n:integer; a:array[1..1000000]of real; 
begin 
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      begin 
         write('Nhap diem kiem tra hoc ki mon tin cua ban thu ',i,': ');readln(a[i]);  
      end; 
   writeln('Diem kiem tra cua ',n,' ban: '); 
   for i:=1 to n do writeln('Diem cua ban thu ',i,': ',a[i]:0:2);
readln
end.

Câu 6: 

uses crt;
var i,n,max,min:integer; a:array[1..1000000]of longint; 
begin 
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      begin 
         write('A[',i,']= ');readln(a[i]);  
         if i=1 then begin max:=a[i]; min:=a[i]; end; 
         if max<a[i] then max:=a[i];
         if min>a[i] then min:=a[i];
      end; 
   writeln('Gia tri lon nhat: ',max);
   writeln('Gia tri nho nhat: ',min);
readln
end.

Câu 5:

uses crt;
var a:array[1..1000]of real;
    n,i:longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do readln(a[i]);
    for i:=1 to n do write(a[i]:0:2,' ');
readln;
end.

Câu 6:

uses crt;
var a:array[1..1000]of longint;
    n,i,maxValue,minValue:longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do readln(a[i]);
    maxValue:=a[1]; minValue:=a[1];
    for i:=2 to n do
        begin
            if a[i]>maxValue then maxValue:=a[i];
            if a[i]<minValue then minValue:=a[i];
        end;
    writeln(maxValue);
    writeln(minValue);
readln;
end.