Mảng số thực

 Lập trình để:
Nhập một dãy số thực từ bàn phím.
Tìm max các số âm trong dãy đó.
Tìm min các số dương trong dãy đó.

                                                                 Giải

Var a:Array[1..25] of Real; MxA,MnD:Real; i,cnt:Integer;
BEGIN
       For i:=1 to n do
           Begin Write('Nhap a(',i,') = '); Readln(a[i]); End;
       For i:=1 to n do
           If a[i]<0 Then Begin Inc(cnt); MxA:=a[i]; End;
       If cnt > 0 Then
           Begin
               For i:=1 to n do If (a[i]<0) and (a[i]>MxA) Then MxA:=a[i];
               WriteLn('=> So am lon nhat trong mang la MaxA= ',MxA:10:1);
           End;
       If cnt=0 Then WriteLn('=> Mang khong co so am !');
       For i:=1 to n do If a[i]>0 Then
           Begin Inc(cnt); MnD:=a[i]; End;
       If cnt > 0 Then
           Begin
             For i:=1 to n do
                   If (a[i]>0) and (a[i]<MnD) Then MnD:=a[i];
                   WriteLn('=> So duong nho nhat trong mang la= ',MnD:10:1);
           End;
       If cnt=0 Then WriteLn('Mang khong co so duong !');
       Readln;
END.