Question

Đề 1: Trong đợt tổng kết cuối năm học. Ban giám hiệu trường cần chọn ra những em học sinh xuất xắc có điểm trung bình đạt từ 9.0 trở lên để tuyên dương. Em hãy viết chương trình giúp ban giám hiệu thực hiện công việc đó.

Yêu cầu : nhập vào điểm trung bình của n học sinh. In ra màng hình thứ tự của những em học sinh xuất xắc.

Lưu ý : chương trình có kiểm tra lỗi nhập liệu. Điểm trung bình từ 0.0 đến 10.0 . Nếu người dùng nhập vào điểm không hợp lệ thì chương trình yêu cầu nhập lại điểm đó.

ví dụ :n = 5; a1 = 5.0 ; a2 = 9.5 ; a3 = 8.9 ; a4 = 9.0 ; a5 = 8.0

In ra màng hình : 2 4

Answer 1

uses crt;
var a:array[1..45]of real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
repeat
write('Nhap diem trung binh cua hoc sinh thu ',i,'='); readln(a[i]);
until (0<=a[i]) and (a[i]<=10);
end;
writeln('Thu tu cua nhung em hoc sinh xuat sac la: ');
for i:=1 to n do
if a[i]>=9 then write(i:4);
readln;
end.