Question

nhập từ bàn phím 1 mảng 1 chiều a có tối đa 50 phần tử, sau đó in lên màn hình:
a) các phần tử là số lẻ  
b)các phần tử ở vị trí chẵn 
c)là số lẻ ở vị trí chẵn

Answer 1

Program HOC24;

Program HOC24;

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

i,n: integer;

begin

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

for i:=1 to n do 

begin

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

end;

for i:=1 to n do if a[i] mod 2=1 then write(a[i],' '); writeln;

for i:=1 to n do if a[i] mod 2=0 then write(a[i],' '); writeln;

for i:=1 to n do if (a[i] mod 2=1) and (i mod 2=0) then write(a[i],' ');

readln

end.