Viết chương trình nhập vào mảng một chiều A khoảng 50 phần tử. a/ Đếm số phần tử dương trong dãy b/Tính các số âm trong dãy c/In mảng chỉ gồm các số c

Program NN;
Uses crt;
Var A: array[1..50] of longint;
    n,i,s,d: longint;
Begin
        Clrscr;
        Write(‘Nhap n: ‘); Readln(n);
        s:=0; d:=0;
        For i:=1 to n do
        Begin
                Read(A[i]);
                If A[i] > 0 then inc(d);
                If A[i] < 0 then s:=s+A[i];
        End;
        Writeln(d);
        Writeln(s);
        For i:=1 to n do
                If A[i] mod 2 = 0 then Write(A[i],’ ‘);
        Readln
End.