Vòng lặp này có thể chạy từ 3 đến 10 vòng

Chạy được 8 vòng. (10-3+1=8)

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.

uses crt;

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

i,n,dem:integer;

begin

clrscr;

readln(n,k);

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

dem:=0;

for i:=1 to n do

if a[i]<0 then inc(dem);

write(dem);

readln;

end.

uses crt;

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

i,n,dem,kt,j:integer;

begin

clrscr;

readln(n);

for i:=1 to n do write(i:4);

writeln;

for i:=2 to n do

begin

kt:=0;

for j:=2 to i-1 do 

if i mod j=0 then kt:=1;

if kt=0 then write(i:4);

end;

readln;

end.

const fi='ktra.txt';

fo='kqkt.txt';

var f1,f2:text;

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

n,i,dem:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

while not eoln(f1) do

begin

n:=n+1;

read(f1,a[n]);

end;

for i:=1 to n do

if a[i] mod 6=0 then write(f2,a[i]:4);

close(f1);

close(f2);

end.

# Khai báo mảng

arr = []

# Nhập dãy số

n = int(input("Nhập số lượng phần tử: "))

for i in range(n):

     num = int(input("Nhập phần tử thứ " + str(i+1) + ": "))

     arr.append(num)

# Đếm các số dương trong dãy đã cho

count = 0

for num in arr:

     if num > 0:

          count += 1

# In ra kết quả

print("Số lượng các số dương trong dãy là:", count)