Viết chương trình nhập vào điểm môn tin cho 50 bạn trong 1 lớp. Sau đó hãy xếp loại cho từng bạn theo điều kiện như sau:
• Điểm tin lớn hơn hoặc bằng 8 là loại giỏi
• Điểm tin từ 6.5 đến nhỏ hơn 8 là loại khá
• Điểm tin từ 5 đến nhỏ hơn 6.5 là loại trung bình
• Điểm tin nhỏ hơn 5 là loại kém
DÙNG MẢNG! ĐỌC KĨ ĐỀ!!
program diem_trungbinh;
uses crt;
var diem:array[1..50] of real;
n,i:byte;
begin
clrscr;
for i:=1 to n do
begin
write(‘Nhap diem tin ban thu ‘,i,’: ‘); readln(diem[i]);
if diem[i]>=8 then writeln(‘=> Loai Gioi’)
else if diem[i]>=6.5 then writeln(‘=> Loai kha: ‘)
else if diem[i]>=5 then writeln(‘=> Loai Trung binh’)
else writeln(‘=> Loai Kem’);
end;
readln;
end.
*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.