program RandomArray;

const
N = 10; // размер массива
var
arr: array[1..N] of integer;
positive, negative: integer;
i: integer;

begin
// заполняем массив случайными числами
randomize;
positive := 0;
negative := 0;
for i := 1 to N do
begin
arr[i] := random(201) - 100; // случайное число от -100 до 100
if arr[i] >= 0 then
positive := positive + 1
else
negative := negative + 1;
end;

// выводим массив и процентное соотношение положительных и отрицательных чисел
writeln('Массив случайных чисел: ');
for i := 1 to N do
write(arr[i], ' ');
writeln;

writeln('Процент положительных чисел: ', (positive 100) div N, '%');
writeln('Процент отрицательных чисел: ', (negative 100) div N, '%');
end.