uses crt; var i:integer; a : array [1..10] of integer; begin clrscr; for i:= 1 to 10 do begin write('Nhap a[',i,'] : ');readln(a[i]); end; write('Cac phan tu nguyen duong : '); for i:=1 to 10 do if a[i] > 0 then write(a[i],' '); readln; end.
uses crt; var i: longint; a: array [1..10] of longint; begin clrscr; for i:= 1 to 10 do begin write('a[',i,'] = ');read(a[i]); end; writeln('Cac phan tu nguyen duong la: '); for i:=1 to 10 do if a[i] > 0 then write(a[i],' '); readln; end.