Question

giúp mình với ạ

viết chương trình tìm vị tri các số le trong dãy

Answer 1

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Vi tri cua cac so le trong day la: ');

for i:=1 to n do

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

readln;

end.

Answer 2

Program HOC24;

var i,n: itenger;

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

begin

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

for i:=1 to n do

begin

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

end;

write('Cac vi tri le trong day : ');

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

readln

end.

Answer 3

uses crt; var a:array[1..100] of longint; beginclrscr; readln(n);for i:=1 to n do readln(a[i]);for i:=1 to n do if a[i] mod 2=1 then write(i,' ');readlnend.