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
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
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.
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.