uses crt; var a:array[1..100] of integer;k,i:integer;p:longint; begin clrscr; write('Nhap so luong phan tu: '); readln(k); p:=1; for i:=1 to k do begin write('Nhap so o vi tri ',i,': '); readln(a[i]); end; write('Nhung so o vi tri le: '); p:=1; for i:=1 to k do if i mod 2=1 then begin write(a[i],' '); p:=p*a[i]; end; writeln; write('Tich cac so do: ',p); readln; end.
