Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trần Quyên

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.

Nguyễn Lê Phước Thịnh
26 tháng 3 2021 lúc 22:46

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.


Các câu hỏi tương tự
Phạm ngọc anh
Xem chi tiết
Lee Jihoon
Xem chi tiết
35.Nguyễn Phương thanh
Xem chi tiết
Nam Vũ Thị
Xem chi tiết
hihi
Xem chi tiết
Anh Thư
Xem chi tiết
Thu Hiền
Xem chi tiết
Yuki
Xem chi tiết
uyen hihi
Xem chi tiết