*Mình gửi bạn ạ!*
→
program diemtin;
uses crt;
var diem:array[1..60] of byte;
i:integer;
begin
clrscr;
for i:=1 to 50 do
begin
writeln('Nhap diem ban thu ',i,' :');
readln(diem[i]);
end;
writeln('Danh sach diem vua nhap va xep loai:');
for i:=1 to 50 do
begin
if diem[i]>=8 then writeln('Ban thu ',i,' - ',diem[i],' diem - Xep loai GIOI')
else
if (diem[i]<8) and (diem[i]>=6.5) then writeln('Ban thu ',i,' - ',diem[i],' diem - Xep loai KHA')
else
if (diem[i]>=5) and (diem[i]<6.5) then writeln('Ban thu ',i,' - ',diem[i],' diem - Xep loai TRUNG BINH')
else writeln('Ban thu ',i,' - ',diem[i],' diem - Xep loai KEM');
end;
readln;
end.