Viết chương trình pascal nhập n số nguyên từ bàn phím và in ra màn hình số các số dương trong các số đó giúp tui với mai thi rồi :((((

1 câu trả lời

uses crt;

var i,n: integer;

begin

clrscr;

write('nhap n=');

read(n);

writeln('Cac so duong la ');

for i:=1 to n do

if i  > 0 then

writeln(i,'  ');

readln

end.

Câu hỏi trong lớp Xem thêm