Program Program1;
var Arr: array[-100..100] of integer;
Arr2: array[-100..100] of integer;
i, n, x, y: integer;
begin
randomize;
write('Введите количество элементов в массиве: ');
readln(n);
for i := 1 to n do Arr[i] := random(100) - random(100);
writeln('Весь массив: ');
for i := 1 to n do write(Arr[i], ' ');
writeln();
write('Введите X и Y: ');
read(x, y);
for i := 1 to x - 1 do write(Arr[i], ' ');
for i := y + 1 to n do write(Arr[i], ' ');
end.