Question

Nhập từ bàn phím 1 dãy n số nguyên. Viết chương trình in ra màn hình các số lẻ có trong dãy. giải giúp em với ạ

Answer 1

uses crt;

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

i,n:integer;

begin

clrscr;

write('Nhap n='); 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<>0 then write(a[i]:4);

readln;

end.

Answer 2

uses crt;

var i,n: integer;

       a: array[1..10000] of integer;

begin

writeln('nhap so nguyen n: '); readln(n);

for i:=1 to n do

begin

writeln('A[',i,']'); readln(a[i]);

if i mod 2 <>0 then writeln(i);

end;

readln;

end.