Question

viết chương trình nhập điểm trung bình trong tháng của các bạn và in ra màn hình và đánh giá dạng giỏi,khá ,tb

Answer 1

uses crt;

var n,i: integer;

A: array[1..1000] of real;

begin

clrscr;

writeln('Nhap so hoc sinh: '); read(n);

writeln('Nhap diem trung binh cac hoc sinh: ');

for i:= 1 to n do

begin

writeln('diem HS ',i,'la: '); read(a[i]);

end;

for i:= 1 to n do

if a[i] >= 8 then writeln('HS thu ',i,'la HSG');

if a[i] >= 6.5 and a[i]<8 then writeln('HS thu ,i,'la HSK');

if a[i] < 6.5 then writeln('HS thu ',i,'la HSTB');

readln

end.