Question

Viết chương trình nhập vào điểm của các bạn trong lớp và in ra màn hình xếp loại của các bạn

Answer 1

Lời giải :

program hotrotinhoc ;

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

i,n : integer ;

begin

write('trong lop cua tat ca so ban la'); readln(n);

writeln('nhap diem cua cac ban');

for i:= 1 to n do

begin

write('Ban thu ',i,':'); readln(a[i]);

end;

for i:= 1 to n do

if a[i] >= 8 then write('Diem gioi gom :',a[i]);

if (a[i] >= 6.5) and (a[i] <=8) then write('Diem kha la :',a[i]);

if a[i] < 5 then write('Diem trung binh va yeu la :',a[i])

readln

end.