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ản

Bởi

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

0 bình luận về “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ản”

  1. 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 😀 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.

    Bình luận

Viết một bình luận