Bài 4:

program oken;
uses crt;
var a: array [1..10] of integer;
    i,min: integer;
begin
    clrscr;
    for i:=1 to 10 do
        begin
            write('Nhap so thu ',i,': ');
            readln(a[i]);
        end;
    min:=a[1];
    for i:=2 to 10 do
        if min>a[i] then
            min:=a[i];
    writeln('So nho nhat trong day so: ',min);
    readln;
end.

Bài 5:

program oken;
uses crt;
var diem: array [1..20] of real;
    i: byte;
begin
    clrscr;
    for i:=1 to 20 do
        begin
            write('Nhap diem cua ban hoc sinh thu ',i,': ');
            readln(diem[i]);
        end;
    for i:=1 to 20 do
        writeln('diem ban thu ',i,': ',diem[i]:0:1);
    readln;
end.

program ct;

uses crt;

var DT:array[1..20] of real;

      i:integer;

begin clrscr;

   for i:=1 to 20 do

     begin

        write('Nhap phan tu thu ',i,': '); readln(DT[i]);

     end;

   writeln('Diem toan cua 20 hoc sinh la: ');

   for i:=1 to n do

     write(DT[i]:3);

readln;

end.

Học tốt!