Tạo mảng A gồm n số nguyên(n<=100) mỗi số có giá trị tuyệt đối không vượt quá 300 Hãy đưa ra màn hình các kết quả sau số lượng số dương trong dãy tống giá trị các số dương trong dãy các số dương trong dãy số lượng số là bội của 3 trong dãy

var a:array[1..100] of longint;

t,d1,n,d,i:longint;

begin

readln(n);

for i:=1 to n do read(a[i]);readln;

d:=0;d1:=0;t:=0;

for i:=1 to n do

if a[i]>0 then begin t:=t+a[i]; inc(d);end;

for i:=1 to n do 

if a[i] mod 3=0 then inc(d1);

writeln(d);

writeln(t);

writeln(d1);

readln

end.

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