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

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.