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.

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