Question

viết chương trình nhập điểm trung bình của các bạn trong lớp. In ra màn hình số bạn giỏi của lớp

mọi người giúp e với ạ

Answer 1

Program HOC24;

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

i,n: integer;

begin

write('Nhap so ban trong lop: '); readln(n);

for i:=1 to n do 

begin

write('Nhap diem cua ban thu ',i,': '); readln(a[i]);

end;

write('So ban gioi cua lop la: ');

for i:=1 to n do if (a[i]>=8) and (a[i]<=10) then write(a[i],' ');

readln

end.