1. Khai báo mảng B có tối đa không quá 500 phần tử là các số thực 2. Nhập số lượng phần tử cho mảng B từ bàn phím 3. Nhập giá trị các phần tử của mảng B bằng cách tạo ngẫu nhiên bằng hàm random
1 câu trả lời
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.
