marks = []

line = input("Hãy nhập các điểm kiểm tra cách nhau bởi dấu cách: ")

marks = [float(x) for x in line.split()]

total = 0

min_mark = marks[0]

max_mark = marks[0]

for m in marks:

    total += m

    if min_mark > m:

        min_mark = m

    if max_mark < m:

        max_mark = m

#a) Thông báo điểm đầu tiên và điểm cuối cùng trong danh sách.

print("Điểm trung bình: ", total / len(marks))

print("Điểm cao nhất: ", max_mark)

print("Điểm thấp nhất: ", min_mark)

print("Điểm đầu tiên: ", marks[0])

print("Điểm cuối cùng: ", marks[-1])

#b)Cho phép người dùng tra cứu đầu điểm thứ n với quy ước n bắt đầu từ 1 ứng với điểm đầu tiên, nếu n lớn hơn tổng số đầu điềm hoặc nhỏ hơn 1, cần thông báo không hợp lệ và yêu cầu người dùng nhập lại.

while True:

    try:

        n = int(input("Nhập n để tra cứu điểm đầu tiên thứ n (n bắt đầu từ 1): "))

        if n < 1 or n > len(marks):

            print("Số n không hợp lệ. Vui lòng nhập lại.")

            continue

        print("Điểm đầu tiên thứ", n, "là:", marks[n - 1])

        break

    except ValueError:

        print("Số n không hợp lệ. Vui lòng nhập lại.")

1.Điểm được sắp xếp theo thứ tự ngẫu nhiên:

# Danh sách tên học sinh

class_names = ["Sơn", "Huyền", "Nam", "Hùng", "Hương", "Hà"]

# Danh sách điểm thi tương ứng

class_scores = [5.6, 7.4, 7.8, 8.4, 8.9, 9.5]

# Nhập khoảng điểm cần tra cứu

start_score = float(input("Nhập điểm bắt đầu của khoảng điểm: "))

end_score = float(input("Nhập điểm kết thúc của khoảng điểm: "))

# Kiểm tra và thông báo tên học sinh có điểm nằm trong khoảng tương ứng

found = False

for i in range(len(class_names)):

  if class_scores[i] >= start_score and class_scores[i] <= end_score:

   print("Học sinh", class_names[i], "có điểm là", class_scores[i])

   found = True

if not found:

  print("Không tìm thấy học sinh nào có điểm trong khoảng điểm đã nhập.")

2.Điểm được sắp xếp theo thứ tự tăng dần:

# Danh sách tên học sinh

class_names = ["Sơn", "Huyền", "Nam", "Hùng", "Hương", "Hà"]

# Danh sách điểm thi tương ứng (đã được sắp xếp theo thứ tự tăng dần)

class_scores = [5.6, 7.4, 7.8, 8.4, 8.9, 9.5]

# Nhập khoảng điểm cần tra cứu

start_score = float(input("Nhập điểm bắt đầu của khoảng điểm: "))

end_score = float(input("Nhập điểm kết thúc của khoảng điểm: "))

# Tìm kiếm nhị phân để tra cứu tên học sinh

found = False

low = 0

  high = len(class_names) – 1

while low <= high:

  mid = (low + high) // 2

  if class_scores[mid] >= start_score and class_scores[mid] <= end_score:

   print("Học sinh", class_names[mid], "có điểm là", class_scores[mid])

   found = True

   break

  elif class_scores[mid] < start_score:

   low = mid + 1

  else:

   high = mid - 1

if not found:

  print("Không tìm thấy học sinh nào có điểm trong khoảng điểm đã nhập.")

uses crt;

var a:array[1..20]of real;

t,tb,ln,nn:real;

i,n:integer;

begin

clrscr;

readln(n);

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

t:=0;

for i:=1 to n do t:=t+a[i];

writeln(t:4:2);

writeln(t/n:4:2);

nn:=a[1];

ln:=a[1];

for i:=1 to n do 

begin

 if nn>a[i] then nn:=a[i];

if ln<a[i] then ln:=a[i];

end;

writeln(nn);

writeln(ln);

readln;

end.

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n-1 do 

  if n mod i=0 then t:=t+i;

if t=n then writeln(n,' la so hoan chinh')

else writeln(n,' khong la so hoan chinh');

readln;

end.

program hoan_chinh;

uses crt;

var n,i,s:integer;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n-1 do

 begin

 if n mod i = 0 then s:=s+i;

 end;

if s=n then writeln('1') {n là số chính phương thì viết 1}

else writeln('0');{n không là số chính phương thì viết 0}

end.

1)
Var i, T: longint;
Begin
T:=0; i:=0;

While T<=100 do begini:=i+1;
T:= T+i;
End;

Writeln('Tong la ',T);
End.

2)

Var a: array[1..100] or real;

i,n: longint;

Begin

Readln(n);

Readln(a[i]);

For i:=1 to n do begin writeln('Diem la',i,'=',a[i]:8:2);

End;

Readln;

End.

- Tớ chưa chạy thử nên không biết đã đúng chưa. Cậu kiểm tra lại nhé!

2.

Program trung_binh;

Uses crt;

Var n, i : integer;

Diem : array[1..50] of real;

Begin

Clrscr;

Write(‘Nhap so luong hoc sinh N = ‘); Readln(n);

Writeln(‘Nhap diem cho tung hoc sinh’);

For i := 1 to n do

Begin

Write(‘Diem HS ‘,i,’ = ‘); readln(Diem[i]);

End;

For i : = 1 to n do

Writeln(‘Diem cua HS ‘,i, ‘ = ‘,diem[i]);

Readln;

End.

ủa lớp mấy học mã lập trình vậy bạn

Lời giải:

Gọi số học sinh lớp 5A đạt $7$ điểm và $8$ điểm lần lượt là $a$ và $b$.

Tổng số học sinh: $a+b$ (hs)

Vì lớp 5A có 5 tổ, số hs mỗi tổ như nhau nên số hs lớp 5A chia hết cho $5$

Hay $a+b$ chia hết cho $5$

Ta cũng có:

$7\times a+8\times b=336$

$8\times b=336-7\times a=7\times (48-a)\vdots 8$

Suy ra $b\vdots 7$

$8\times b=336-7\times a< 336$

$b< 336:8$

$b< 42$

Mà $b$ chia hết hết cho $7$ nên $b$ có thể nhận các giá trị $7; 14;21;28; 35$

Nếu $b=7$ thì $a=(336-8\times 7):7=40$. 

$a+b=40+7=47$ không chia hết cho $5$ (loại)

Nếu $b=14$ thì $a=(336-8\times 14):7=32$

$a+b=14+32=36$ không chia hết cho $5$ (loại)

Nếu $b=21$ thì $a=(336-8\times 21):7=24$

$a+b=21+24=50$ chia hết cho $5$ (chọn)

Nếu $b=28$ thì $a=(336-8\times 28):7=16$

$a+b=28+16=44$ không chia hết cho $5$ (loại)

Nếu $b=35$ thì $a=(336-8\times 35):7=8$ 

$a+b=35+8=43$ không chia hết cho $5$ (loại)

Vậy có 24 hs đạt 7 điểm và 21 học sinh đạt 8 điểm

Uses crt;

Var i,n:integer;

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

Begin

clrscr;

Write('Nhap so hoc sinh: ');readln(n);

Writeln('Nhap diem hoc ki mon tin cua ',n,' em hoc sinh:');

For i:=1 to n do

Begin

Write('Hoc sinh thu ',i,' : ');

readln(a[i]);

End;

Writeln('Diem kiem tra cua ',n,' em hoc sinh vua nhap la:');

For i:= 1 to n do writeln('Hoc sinh thu ',i,' : ',a[i]);

readln;

End.