Question

Заполните массив случайными целыми числами из отрезка [0,10]

Answer 1

const  n = 10;
var  x: array[1..n] of integer; 
i: integer;
begin 
Randomize; 
for i := 1 to n do 
begin   
x[i] := Random(11);   
Write(x[i]:4) 
end;
end.