uses crt;

var A:array[1..100] of integer;

n,i,d,t:integer;

begin clrscr;

write('Nhap so phan tu: '); readln(n);

d:=0; for i:=1 to n do

begin

write('A[',i,']='); readln(A[i]);

if A[i]=0 then d:=d+1 else t:=t+1;

end;

writeln('So luong cac so bang 0: ',d);

writeln('So luong cac so klhac 0: ',t);

writeln('Vi tri cac so bang 0: ');

for i:=1 to n do if A[i]=0 then write(i,' ');

readln

end.

uses crt;

var a, b : array [1 .. 100] of integer;

      i, n, j : integer;

begin

clrscr;

write('Nhap do dai day = '); readln(n);

write('Nhap day gom ', n ,' so : ');

for i := 1 to n do read(a[i]);

j := 0;

for i := 1 to n do

    if a[i] = 0 then

        begin

            j := j + 1;

            b[j] := i;

        end;

writeln('Day co ', j ,' so 0');

writeln('Day co ', n - j ,' so khac 0');

write('Vi tri cac so 0 : ');

for i := 1 to j do write(B[i],' ');

readln

end.