program RandomArrayvaA: array[1..15] of Integeri: IntegerbegiRandomize;
// заполняем массив случайными числами от -10 до 2for i := 1 to 15 dA[i] := Random(31) - 10;
// выводим элементы массива на экраfor i := 1 to 15 dWrite(A[i], ' ')end.
program RandomArray
va
A: array[1..15] of Integer
i: Integer
begi
Randomize;
// заполняем массив случайными числами от -10 до 2
for i := 1 to 15 d
A[i] := Random(31) - 10;
// выводим элементы массива на экра
for i := 1 to 15 d
Write(A[i], ' ')
end.