Tạo mảng A có 50 phần tử , các phần tử có giá trị nguyên và không âm . In ra màn hình chỉ số của các phần tử có giá trị lẻ . Viết chương trình giúp mình câu này với ạ

Program sole;

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

begin

  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

writeln (a[i]);

Readln;

end.

Cái này theo ý kiến e thôi ạ ><

E mới học năm ngoái nên nhớ sơ sơ ^^

program hotrotinhoc;

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

i,n: integer;

begin

write('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=1 then write(a[i],' ');

readln

end.