. Chỉ mik với MN mik cần gấp

Đề 1:

program De_1;

uses crt;

var A:array [1..500] of real;

      n,i: integer;

      S: real;

Begin

         clrscr;

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

         for i:=1 to n do

         begin

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

         end;

         write('Cac phan tu trong day: ');

         for i:=1 to n do

         begin

                  write(A[i],'  ');

                  S:=S+A[i];

         end;

         writeln;

         write('Tong cac phan tu trong day = ',S:2:3);

         readln

End.

Đề 2:

program De_2;

uses crt;

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

      n,i,min: integer;

Begin

         clrscr;

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

         for i:=1 to n do

         begin

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

         end;

         min:=A[1];

         write('Cac phan tu trong day: ');

         for i:=1 to n do

         begin

                  write(A[i],'  ');

                  if A[i]<min then min:=A[i];

         end;

         writeln;

         write('Phan tu min: ',min);

         readln

End.