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.

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.

program Chieu_cao;

uses crt;

var Long, Trang : integer;

begin

writeln('Nhap chieu cao cua Long (Duoi dang cm)');

readln(Long);

writeln('Nhap chieu cao cua Trang (Duoi dang cm)');

readln(Trang);

if Long > Trang then writeln('Long cao hon Trang')

else writeln('Trang cao hon Long);

end.

#AeMZn

program Chieu_cao;

uses crt;

var Long, Trang : integer;

begin

writeln('Nhap chieu cao cua Long (Duoi dang cm)');

readln(Long);

writeln('Nhap chieu cao cua Trang (Duoi dang cm)');

readln(Trang);

Tham khảo

Var a,b:array[1..100] of integer;
          c: array[1..100] of real;
          i,n:integer;
Begin
write('Nhap so hoc sinh: ');readln(n);
writeln('Nhap diem Toan');
for i:=1 to n do begin write(i,'. ');readln(a[i]);end;
writeln('Nhap diem Van');
for i:=1 to n do begin write(i,'. ');readln(b[i]);end;
for i:=1 to n do c[i]:=(a[i]+b[i])/2;
writeln('Diem trung binh');
for i:=1 to n do writeln(i,'. ',c[i]);
readln

uses crt;

var i,n:byte;Max:real;

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

begin

clrscr;

write('nhap so hoc sinh cua lop:');readln(n);

for i:=1 to n do

begin

  write('nhap diem trung binh mon tin cho hoc sinh thu ',i,':');readln(a[i]);

end;

max:=a[1];

for i:=1 to n do

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

writeln('diem trung binh mon tin cao nhat la: ',Max);

readln;

end.

uses crt;

var i,n:byte;Max:real;

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

begin

clrscr;

write('nhap so hoc sinh cua lop:');readln(n);

for i:=1 to n do

begin

  write('nhap diem trung binh mon tin cho hoc sinh thu ',i,':');readln(a[i]);

end;

max:=a[1];

for i:=1 to n do

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

writeln('diem trung binh mon tin cao nhat la: ',Max:0:1);

readln;

end.

Chương trình 1 có lỗi cú pháp, câu lệnh 2, 3 không khớp nối với câu lệnh 1, 4.

Chương trình 2 có lỗi logic, a = b thuộc trường hợp a > b sai nên chương trình đưa ra thông báo sai khi nhập hai số a, b bằng nhau.

n = int(input("Nhập số lượng học sinh trong lớp: "))

dtb = [ ]

for i in range(n):

      diem = float(input(f"Nhập điểm trung bình của học sinh thứ {i+1}: "))

      dtb.append(diem)

count = 0

for diem in dtb:

      if diem < 5:

            count += 1

print(f"Số lượng học sinh xếp loại chưa đạt là: {count}")

uses crt;

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

i,n,dem1,dem2,dem3,dem4:integer;

begin

clrscr;

readln(n);

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

dem1:=0;

dem2:=0;

dem3:=0;

dem4:=0;

for i:=1 to n do 

  begin

 if (a[i]>=8) then inc(dem1);

if (6.5<=a[i]) and (a[i]<=7.9) then inc(dem2);

if (5<=a[i]) and (a[i]<=6.4) then inc(dem3);

if (a[i]<5) then inc(dem4);

end;

writeln('So hoc sinh gioi la: ',dem1);

writeln('So hoc sinh kha la: ',dem2);

writeln('So hoc sinh trung binh la: ',dem3);

writeln('So hoc sinh kem la: ',dem4);

readln;

end.

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.