program SoSanhDiem;

var

      DiemManh, DiemThanh: real;

begin

      write('Nhap diem cua ban Manh: ');

      readln(DiemManh);

      write('Nhap diem cua ban Thanh: ');

      readln(DiemThanh);

      if DiemManh > DiemThanh then

            writeln('Ban Manh dat diem cao hon ban Thanh.')

      else if DiemManh < DiemThanh then

            writeln('Ban Thanh dat diem cao hon ban Manh.')

      else

            writeln('Hai ban dat diem bang nhau.');

      readln;

end.

uses crt;

var diem:real;

begin

clrscr;

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

if diem<5 then writeln('diem yeu ban can co gang hon')

else if (diem>=5) and (diem<6,5) then writeln('ban dat diem trung binh')

else if (diem>=6,5) and (diem<8) then writeln('ban dat diem kha')

else writeln('ban dat diem gioi');

readln;

end.

Program HOC24;

var a,b: real;

begin

write('Nhap diem cua Manh: '); readln(a);

write('Nhap diem cua Thanh: '); readln(b);

if a>b then write('Diem cua ban Manh cao hon ban Thanh');

if a<b then write('Diem cua ban Thanh cao hon ban Manh');

if a=b then write('Diem cua ban Manh bang ban Thanh');

readln

end.

#include <bits/stdc++.h>

using namespace std;

int a;

int main()

{

cin>>a;

if (a>10) cout<<"ban nhap so lon hon 10";

else cout<<"ban nhap so nho hon 10";

return 0;

}

var hoten,sbd:string;

t,l,h,s:real;

begin

write('Nhap ho ten ');readln(hoten);

write('Nhap so bao danh);readln(sbd);

write('Nhap diem toan = ');readln(t);

write('Nhap diem ly = ');readln(l);

write('Nhap diem hoa = ');readln(h);

s:=t+l+h;

if s >= 15 then write('Ban da trung tuyen')

else write('Ban khong trung tuyen');

readln;

end.

var a:real;

begin

write('nhap diem kiem tra: '); readln(a);

if a<5 then writeln('Ban can co gang hon!');

if (a>=5) and (a<6.5) then writeln('Ban dat diem trung binh!');

if (a>=6.5) and (a<8) then writeln('Ban dat diem kha!');

if a>8 then write('Chuc mung,ban dat diem gioi!');

readln

end.

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

program DiemTrungBinh;
var
  diem: real;
  i, n: integer;
begin
  write('Nhap so luong ban trong lop: ');
  readln(n);
  
  for i := 1 to n do
  begin
    write('Nhap diem trung binh cua ban ', i, ': ');
    readln(diem);
    if diem >= 5 then
      writeln('Diem trung binh cua ban ', i, ' la: ', diem:0:2);
  end;
end.