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
1 câu trả lời
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.
