uses crt;

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

i,n,t,j,tam:integer;

begin

clrscr;

readln(n,k);

for i:=1 to n do readln(a[i]);

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;

write(a[k]);

readln;

end.

program sonho;

var

     arr:array[1..100] of integer;

     k, n, i, min: integer;

begin

     write('Nhap n: ');

      readln(n);

     write('Nhap cac phan tu cua day: ');

     for i := 1 to n do

     begin

          readln(arr[i]);

     end;

     write('Nhap k: ');

     readln(k);

     min := arr[1];

     for i := 2 to k do

     begin

          if (arr[i] < min) then

               min := arr[i];

     end;

     writeln('So nho thu ', k, ' trong day la: ', min);

end.

var A:

     array[1..n] of integer;

     i, j, n: integer;

begin

     write('Nhap so phan tu cua mang: ');

     readln(n);

     for i := 1 to n do

     begin

          write('Nhap phan tu thu ', i, ': ');

          readln(A[i]);

     end;

     for i := 1 to n - 1 do

         for j := i+1 to n do

            if (A[i] mod 2 = 0) and (A[j] mod 2 = 0) and (A[i] < A[j]) or (A[i] mod 2 = 1) and (A[j] mod 2 = 1) and (A[i] > A[j]) then

            begin

                swap(A[i], A[j]);

            end;

     writeln('Mang da sap xep la: ');

      for i := 1 to n do

         writeln(A[i]);

end.

\(R_{tđ}=\dfrac{R_1\cdot R_2}{R_1+R_2}=\dfrac{24\cdot12}{24+12}=8\Omega\)

\(I=\dfrac{U}{R}=\dfrac{12}{8}=1,5A\)

\(P=\dfrac{U^2}{R}=\dfrac{12^2}{8}=18W\)

\(Q_{tỏa1}=A_1=U_1\cdot I_1\cdot t=12\cdot\dfrac{12}{24}\cdot1\cdot3600=21600J\)

\(Q_{tỏa2}=A_2=U_2\cdot I_2\cdot t=12\cdot\dfrac{12}{12}\cdot1\cdot3600=43200J\)

Tỉ lệ \(x=\dfrac{y}{-5}\)

x             -4                 -1                2                   3

y             20                 5               -10               -15

Từ 0 đến 1 được chia thành 10 phần bằng nhau.

Giá trị của mỗi phần là: \(\dfrac{1}{10}\)

Từ lập luận trên ta có:

Số thích hợp để điền vào các ô trống lần lượt  là: 

10; 5; 6; 9; 10

0 ; 1/10 ; 2/10 ; 3/10 ; 4/10 ; 5/10 ; 6/10 ; 7/10 ; 8/10 ; 9/10 ; 1

Chúc bạn học tốt!

10

5

6

9

10

Var a:array[1..100] of integer;

i,s:integer;

Begin

For i:=1 to 100 do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

If a[i] mod 2 <> 0 then s:=s+a[i];

End;

Write('Tong la ',s);

Readln;

End.

\(\left(5\sqrt{3}+3\sqrt{5}\right):\sqrt{15}=\dfrac{5\sqrt{3}}{\sqrt{15}}+\dfrac{3\sqrt{5}}{\sqrt{15}}=\dfrac{5\sqrt{3}}{\sqrt{5}.\sqrt{3}}+\dfrac{3\sqrt{5}}{\sqrt{3}.\sqrt{5}}=\sqrt{5}+\sqrt{3}\)

Program HOC24;
var st,st1,st2: string;
i,n,d,k,j: integer;
t,m: longint;
a: array[1..10000] of integer;
f: text;
const fi='SUBSUM.INP' ;
    fo = 'SUBSUM.OUT' ;
Procedure ip;
begin
        assign(f,fi);
        reset(f);
        readln(f,n,m);
        for i:=1 to n do read(f,a[i]);
        close(f);
end;
Procedure out;
begin
        assign(f,fo);
        rewrite(f);
        d:=0;
        for i:=1 to n-1 do
        Begin
        If a[i]=m then d:=d+1;
        for j:=i+1 to n do
                 begin
                         t:=0;
                         for k:=i to j do t:=t+a[k];
                         if t=m then d:=d+1;
                 end;
        End;
        if a[n]=m then d:=d+1; write(f,d);
        close(f);
end;
Begin
ip;
out;
End.

Đề bài đâu rồi ạ, có đề mới giải được ạ