Bài 11: Kiểu mảng

Mori Ran

Câu hỏi: Viết 1 chương trình để nhập một dãy N số nguyên để thực hiện các yêu cầu sau:

a) Nhập số nguyên X, in ra màn hình xem số x xuất hiện bao nhiêu lần.

b) Tìm xem số x nằm ở những vị trí nào.

( mọi người giúp mình với. Mình cảm ơn mọi người nhiều nha).

Minh Lệ
10 tháng 7 2020 lúc 18:50

Program HOC24;

var n,i,x,d: integer;

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

begin

write('Nhap N : '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,' : '); readln(a[i]);

end;

write('Nhap x : '); readln(x);

d:=0;

for i:=1 to n do if x=a[i] then d:=d+1;

writeln('So ',x,' xuat hien ',d,' lan ');

write('So ',x,' nam o nhung vi tri : ' );

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

readln

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
10 tháng 7 2020 lúc 22:29

uses crt;

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

dem,i,n,d,x:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

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

d:=0;

for i:=1 to n do

if a[i]=x then inc(d);

writeln('So lan xuat hien cua ',x,' trong day so la: ',d);

dem:=0;

for i:=1 to n do

if a[i]=x then

begin

inc(dem);

vt[dem]:=i;

end;

if dem>0 then

begin

write('So ',x,' xuat hien o cac vi tri lan luot la: ');

for i:=1 to dem do

write(vt[i]:4);

end;

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Dandelion
Xem chi tiết
Anh Nguyen
Xem chi tiết
Minh Quyết
Xem chi tiết
Thảo Vy
Xem chi tiết
Vương Thị Minh Tâm
Xem chi tiết
Nguyễn Phú Trọng
Xem chi tiết
Sarah Lilia
Xem chi tiết
Anh Thư
Xem chi tiết
Ngoc Huyen
Xem chi tiết