Question

viết chương trình nhập vào mảng gồm n số nguyên. Hãy hiển thị tất cả các phần tử ở vị trí chẵn

Answer 1

Var a:array[1..200] of integer;

i,n:integer;

begin

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

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

end;

write('Cac phan tu o vi tri chan la: ');

for i:=2 to n do

begin

if i mod 2 = 0 then write(i:7);

end;

readln;

end.

Answer 2

_{uses crt;}

_{var n,i,chan,tonchan:integer;}

_{a:array[1..100] of integer;}

_begin

_{write('nhap n '); readln(n);}

_{for i:=1 to n do}

_begin

_{write('a[i]='); readln(a[i]);}

_end;

_{writeln("in cac phan tu trong mang");}

_{for i:=1 to n do}

_begin

_{writeln(a[i]);}

_end;

_{writeln("in cac phan tu chan");}

_chan:=0;

_{for i:=1 to n do}

_{if n mod 2=0 then begin writeln(a[i]); chan:=chan+1; end;}

_{write('tong cac phan tu chan ',chan);}

_readln;

Answer 3

_{uses crt;}

_{var n,i,chan,tonchan:integer;}

_{a:array[1..100] of integer;}

_begin

_{write('nhap n '); readln(n);}

_{for i:=1 to n do}

_begin

_{write('a[i]='); readln(a[i]);}

_end;

_{writeln("in cac phan tu trong mang");}

_{for i:=1 to n do}

_begin

_{writeln(a[i]);}

_end;

_{writeln("in cac phan tu chan");}

_chan:=0;

_{for i:=1 to n do}

_{if n mod 2=0 then begin writeln(a[i]); chan:=chan+1; end;}

_{write('tong cac phan tu chan ',chan);}

_readln;