Bài 1 Viết chương trình bằng ngôn ngữ lập trình Pascal. Sử dụng biến mảng để nhập từ bàn phím một dãy số thực. (Độ dài cũng được nhập từ bàn phím. Sau đó in ra màn hình giá trị lớn nhất và nhỏ nhất của dãy số) Mình đang rất gấp!!!!!!!!!!!! 5 sao + câu hay nhất + cảm ơn

uses crt;
var a:array[1..1000] of real;
      max,min:extended;
      n,i:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do
            begin
                  write('Nhap phan tu thu ',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('Max: ',max:0:2);
      write('Min: ',min:0:2);
      readln;
end.

Program bien_mang;

Uses Crt;

Var i, n, s:integer;

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

Begin

Clrscr;

Write('So phan tu la: '); readln(n);

s:=0;

For i:=1 to n do

Begin

Write('Nhap so thu ',i); readln(a[i]);

If a[i] mod 2 = 0 then s:=s+a[i];

End;

Writeln('Cac so vua nhap la');

For i:=1 to n do write(a[i],' ');

Writeln('Tong cac so chan la',s);

Readln;

End.