program HelloArray;
var
a: array[1..10] of integer; // Объявим переменную массива целочисленных чисел
i: integer; // Объявим переменную счетчика
begin
randomize; // Включим генератор случайных чисел
for i:=1 to 10 do // цикл от 1 до 10
a[i] := random(101) - 50; // Каждому элементу массива присвоим значение в диапазоне [-50; 50]
end.