Question

Viết CT tìm phần tử có giá trị lẻ của mảng và đưa ra màng hình chỉ số và giá trị của phần tử tìm được . Nếu có nhiều phần tử có cùng giá trị tỉ lệ thì đưa ra phần tử có chỉ số lớn nhất.

Answer 1

uses crt;

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

n,i,dem,j,kt,max:integer;

begin

clrscr;

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

for i:=1 to n do

  begin

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

end;

b[1]:=a[1];

dem:=1;

for i:=1 to n do

  begin

kt:=0;

for j:=1 to dem do

  if b[j]=a[i] then kt:=1;

if kt=0 then

begin

inc(dem);

b[dem]:=a[i];

end;

end;

for i:=1 to dem do

  if b[i] mod 2<>0 then

begin

max:=0;

for j:=1 to n do

  if b[i]=a[j] then
     begin
        if max<j then max:=j;

     end;

writeln(b[i],' xuat hien o vi tri thu ',max);
end;
readln;
end.