Viết chương trình nhập vào 1 dãy số thực gồm 100 số hạng. Xuất ra màn dãy số đó được viết theo chiều ngược lại; tổng các số âm và số lượng số ko âm.

Program BTT;
Uses crt;
Var A: array[1..100] of extended;
    i,d: longint;
    s: extended;
Begin
        Clrscr;
        s:=0; d:=0;
        For i:=1 to 100 do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i]>0 then inc(d);
                If A[i]<0 then s:=s+A[i];
        End;
        For i:=100 downto 1 do
                Write(A[i]:0:2,' ');
        Writeln;
        Writeln('Tong cac so am: ',s:0:2);
        Write('So luong so khong am: ',d);
        Readln
End.