Question

Nhập 1 mảng số nguyên. In ra các số ở vị trí lẻ

Nhập 1 mảng số nguyên. đếm xem có bao nhiêu số lẻ

Answer 1

var a:array[1..1000] of integer;

i,n,d:integer;

begin

write('n = ');readln(n);

for i:=1 to n do

begin

write('nhap so thu ',i,' = ');readln(a[i]);

if a[i] mod 2 <> 0 then d:=d+1;

end;

write('Cac so o vi tri le la ');

for i:=1 to n do

if i mod 2 <> 0 then write(a[i]:8);

writeln;

write('co ',d,' so le');

readln

end.