Nhập dãy và nhập k từ bàn phím và cho biết vị trí của phần tử ak trong dãy.Việc xếp vị thứ được thực hiện: số có giá trị lớn nhất được xếp vị trí thứ 1,hai số có cùng giá trị thì được xếp cùng một vị thứ.Khi có hai số hoặc nhiều số sắp vị thứ k thì không có số được sắp xếp vị th

chupi1

2 năm trước

Nhập dãy và nhập k từ bàn phím và cho biết vị trí của phần tử ak trong dãy.Việc xếp vị thứ được thực hiện: số có giá trị lớn nhất được xếp vị trí thứ 1,hai số có cùng giá trị thì được xếp cùng một vị thứ.Khi có hai số hoặc nhiều số sắp vị thứ k thì không có số được sắp xếp vị thứ k+1

Loga Sinh Học lớp 12

0 lượt thích 21 xem

1 trả lời

Thích Trả lời

Ronip

program sothuk;

var A,B:array[1..100] of integer;

n,i,j,tg,k:integer;

begin

clrscr;

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

writeln('Nhap gia tri tung phan tu cua day');

for i:=1 to n do

begin

write('Phan tu thu ',i,': ');

readln(A[i]);

end;

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

{Sap xep}

for i:=1 to n do

for j:=i+1 to n do

if A[i]<A[j] then

begin

tg:=A[i];

A[i]:=A[j];

A[j]:=tg;

end;

{Tao mang tim vi thu}

B[1]:=1;

for i:=2 to n do

if A[i]=A[i-1] then B[i]:=B[i-1] else B[i]:=i;

{In vi thu cua A[k]}

write('Phan tu ',A[k],' co vi thu: ',B[k]);

readln

end.

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

phuocthuantran456

uses crt;
var n,i,j,k,kt,t:longint; a:array[1..10000000]of longint;
begin
clrscr;
write('n,k=');readln(n,k);
for i:=1 to n do
begin
write('a[',i,']=');readln(A[i]);
for j:=1 to i do
if a[i]<a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
end;
for i:=2 to k do if a[i]=a[i-1] then kt:=1;
if kt=1 then writeln('Khong co') else writeln(a[k]);
readln
end.

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

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

làm bức avt lớp Lớp 6C Trường Trung học Cơ Sở Tiền Tiến đẹp nhá hk là bc

viết 5 phân số mà mỗi phân số đều nhỏ hơn 1

Xin tặng cho 20 điểm + 5 sao + 1 tim cho những ai vẽ được bức tranh này! ^^

Cho a,b,c là độ dài 3 cạnh tam giác Cm 2$a^{2}$$b^{2}$ + 2$b^{2}$$c^{2}$ +2$c^{2}$$a^{2}$ - $a^{4}$ - $b^{4}$ - $c^{4}$ >0

Giải giúp mik bài 1 và bài 2 phần tự luận với

Vẽ chibi Tuyển thành viên chăm chỉ , ko spam và sao chép ạ

Mọi người cho mình xin dàn ý chi tiết bài cảm nhận về 2 đoạn văn này trong VCAP với “Lần lần mấy năm ... đến bao giờ chết thì thôi” Và “Lúc ấy đã khuya...lao chạy xuống dốc núi”

Lập thời gian biểu kế hoạch làm việc, học tập trong tuần của em (Trình bày theo tgb của các b nha phải chi tiết nha)

Hộ mình cái... trăm sự nhờ bạn ...s...chi giúp mình với ạ, bài lý ban nãy thầy duyệt trình bày nên hộ mình bài này với chi gì gì đó... hoặc mấy anh chị pro tổ tự nhiên ạ

mọi người giúp mình câu này với cảm ơn mọi người nhiều

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