Question

Mọi người giúp mình câu này nhé.

Viết chương trình nhập điểm kiểm tra của 10 bạn với số điểm nhập từ bàn phím và in kết quả của 10 bạn ( sử dụng biến mảng ).

Answer 1

Answer 2

uses crt;
var a:array[1..10]of real;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
repeat
write('A[',i,']='); readln(a[i]);
until (0<a[i]) and (a[i]<=10);
end;
for i:=1 to 10 do
writeln('Diem cua ban thu ',i,' la: ',a[i]:4:2);
readln;
end.