Nhập 1 dãy gồm n số nguyên (N<=100). Xuất ra màn hình các số dương có trong dãy.
BÀI GIẢI:
program soduong;
var A: array[1..100] of integer;
i,n: byte;
begin
writeln(′Nhap so luong phan tu cua day: ′);
readln(n) ;
for i:=1 to n do
begin
writeln(′Nhap so thu: ′, i);
readln(A[i]);
end;
writeln(′Cac so duong co trong day la: ′);
for i:=1 to n do
if A[i] > 0 then write(A[i]:6);
readln;
end.
File chương trình: Download