em hãy nhập vào 1 dãy số nguyên n và in ra dãy số nguyên đó.hãy nhập vào 1 giá trị x bất kì (x số nguyên) và cho biết số nguyên x xuất hiện bao lần trong dãy số đó

bup492000

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 19 xem

1 trả lời

Thích Trả lời

dtp89991

program in_va_dem;

uses crt;

var A:array[1..1000] of integer;

n,i,x,d:integer;

begin

clrscr;

write('Nhap so nguyen n: '); readln(n);

for i:=1 to n do

begin

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

end;

write('Day so la: ');

for i:=1 to n do write(A[i],' ');

writeln;

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

d:=0;

for i:=1 to n do

if A[i]=x then d:=d+1;

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

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

800897880445841

uses crt;
var i,n,d,x:longint; a:array[1..100000]of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n Do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
end;
write('Day so nguyen do: ');
for i:=1 to n Do write(a[i],' '); writeln;
write('Nhap x: ');readln(x);
for i:=1 to n do
if a[i]=x then inc(d);
writeln('x xuat hien ',d,' lan trong day');
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Cho tam giác cân tại A. Kẻ đường trung tuyến AM a)CM tam giác ABM=ACM b)CM AM vuông góc với BC

..................................

Nhóm thiết bị nào sau đây là thiết bị nhập dữ liệu? A. Bàn phím, Micro, máy quét (scan), thiết bị lưu trữ. B. Màn hình, bàn phím, máy quét (scan). C. Bàn phím, thiết bị lưu trữ, máy in. D. Máy in, thiết bị lưu trữ, máy quét (scan).

Làm hết hộ mình nhá mình cho ctlhn nhen

Điểm khác nhau về nguyên nhân thắng lợi giữa cách mạng tháng Tám (1945) với nguyên nhân thắng lợi của cuộc kháng chiến chống Pháp (1945 – 1954) là A. sự lãnh đạo sáng suốt của Đảng, đứng đầu là Chủ tịch Hồ Chí Minh. B. có khối liên minh vững chắc, tập hợp được mọi lực lượng yêu nước. C. truyền thống yêu nước, anh hùng bất khuất của dân tộc. D. tình đoàn kết chiến đấu của nhân dân ba nước Đông Dương.

Cho hỗn hợp khí A gồm CO2 và O2 có tỉ lệ thể tích tương ứng là 5:1 a. Tính tỉ khối của hỗn hợp khí A đối với không khí b. Tính thể tích ở điều kiện tiêu chuẩn của 10,5 g khí A 2. Hoàn thành sơ đồ phản ứng hóa học sau a.Na->NaO2->NaOH->Fe(OH)3->Fe2O3->Fe b.KClO3->X->Fe->Fe3O4->Y->H2SO4->C->HCl c.KMnO4->O2->SO2->SO3->H2SO4->HCl->HNO3 Giúp mình với mình cần gấp

Vai trò của hooc môn ở tuyến tụy

Giải thích việc sử dụng năng lượng và tài nguyên quá mức gây cạn kiệt tài nguyên và suy thoái môi trường .Nêu nguyên nhân của mất rừng , hiệu ứng nhà kính , thủng tầng ozon và hậu quả của chúng

5 quyển sách hết 28.000 Đồng muôn 8 quyển hết bao nhiêu đồng

1 cano đi từ A tới B hết 6 giờ và về từ B tới A hết 7 giờ hỏi Từ A tới B dài bao nhiêu km biết vận tốc dòng nước là 2km

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến