Viết chương trình tìm K số lớn nhất trong dãy A nhập từ bàn phím VD: A: 1, 2, 6, 8, 10, 6, 1, 3, 9, 25 K=3 => Kết quả: 25, 10, 9

dhtrang16620

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 11 xem

1 trả lời

Thích Trả lời

canhthanh

program ksolonnhat;

uses crt;

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

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

begin

clrscr;

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

write('NHAP GIA TRI TUNG PHAN TU CUA DAY');

for i:=1 to n do

begin

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

readln(A[i]);

end;

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

for i:=1 to n-1 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;

for i:=1 to k do

write(A[i],' ');

readln

end.

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

2257924591185884

program oken;
var f: text;
n,i,j,tam,k: longint;
a:array[1..10000] of longint;
begin
assign(f,'nhap.inp'); reset(f);
write(f,'A: '); n:=0;
repeat
inc(n);
read(f,a[i]);
until eof(f);
readln(f); readln(f,k);
close(f);
assign(f,'xuat.out'); rewrite(f);
for i:=1 to n-1 do
for j:= i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to k do
write(f,a[i]);
close(f);
end.

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

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

mn giúp mình vs,cái này là hpt ạ,làm 3/3 hay 2/3 đều đc.cảm ơn nhìu

vẽ nezuko nha line, ko vẽ app,ko vẽ chibi

vẽ kamado tanjiro line,full màu,ko vẽ app

hãy giải thích vì sao hạt phấn to và có gai ,đầu nhụy có chất kết dính?

$\left \{ {{\frac{x}{2}-y=\sqrt[2]{2}} \atop {-x+2y=-\sqrt[2]{8}}} \right.$

soạn bài thuyết trình lịch sử bài 27 phần 1 là mã

Các bạn giúp mk bài này vs ạ Mk đang cần gấp Thanks nhiều ạ

tôi sẽ công nhận bạn là 1 người chép tranh giỏi nếu như bạn vẽ dc hình dưới ,ful màu giống 80-90 phần trăm tôi tin ở các bạn giống vào nha tui sẽ soi rất kĩ đó

Hòa tan hoàn toàn 27,265 gam hỗn hợp X gồm kim loại R và oxit RO trong lượng nước dư ,sau khi phản ứng xảy ra hoàn toàn thì thấy khối lượng nước giảm 4,5 gam.Tìm tên kim loại R và tính khối lượng mỗi chất trong hỗn hợp X. Help meeee!!! Cần gấp mn ơi

Vẽ phong cảnh đi mn :> có màu nhen Miêu ơi bh mới full ;;-;; muốn khok quá

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