Cho dãy số a1,a2,…an.Em hãy in ra màn hình số lớn thứ k của dãy

0 bình luận về “Cho dãy số a1,a2,…an.Em hãy in ra màn hình số lớn thứ k của dãy”

1. Program Tin_hoc;

   Uses crt;

   var i,n,k,j,tam:integer;

        a:array[1..1000] of integer;

   Begin

     clrscr;

     Write(‘Nhap n: ‘);readln(n);

     Writeln(‘Nhap ‘,n,’ phan tu:’);

     For i:= 1 to n do 

       begin

       Write(‘A[‘,i,’] = ‘);

       readln(a[i]);

       end;

     Write(‘Nhap k: ‘);readln(k);

     For i:= 1 to n do

        For j:= i to n do If a[j]>a[i] then

           begin

           tam:=a[i];

           a[i]:=a[j];

           a[j]:=tam;

           end;

     Writeln(‘So lon thu ‘,k,’ cua day la: ‘,a[k]);

     readln;

   end.

   Bình luận

2. mik ko hiểu ạ

   Bình luận