Question

[Sang Nguyễn]

Cho một dãy số A gồm N phần tử (n>=100)

Hãy phát sinh dãy A ngẫu nhiên N phần tử (10<=n<=N).Xuất dãy A ra màn hình 

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

randomize;

write('Nhap n='); readln(n);

for i:=1 to n do 

a[i]:=random(100);

for i:=1 to n do 

 write(a[i]:4);

readln;

end.