Viết chương trình nhập dãy số gồm n số nguyên (n<=100)( Sử dụng chương trình con nhập dãy số ) .In ra màn hình các số dương trong dãy

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

    i, n: byte;

Procedure nhap;

Begin

    Write(‘n = ‘); readln(n);

    For i:=1 to n do 

        Begin

            Write(‘a[‘,i,’] = ‘); readln(a[i]);

        End;

Begin

    Nhap;

    Writeln(‘cac so nguyen duong la’);

    For i:=1 to n do if a[i]>0 then

        Write(a[i], ‘ ‘);

    Readln

End.