program Min;
var B:array[1..500] of real;
n,i:integer;
begin
randomize;
writeln('Nhap n: '); readln(n);
for i:=1 to n do B[i]:=random();
for i:=1 to n do writeln(B[i]:4:2);
readln
end.
Bạn kiểm tra lại chương trình nha :D Chương trình này mình có thêm một lệnh viết tất cả các giá trị của phần tử của mảng B để bạn dễ kiểm tra a.