Cho 1 dãy gồm N số nguyên a1 a2...aN . Hãy xác định vị trí của các số nguyên dương có trong dãy
1 câu trả lời
program bai_giai;
uses crt;
var A:array[1..10000] of longint;
n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do read(A[i]);
for i:=1 to n do
if A[i]>0 then write(i,' ');
readln;
end.