Составить программу одномерного массива.
подсчитать количество чисел,не принадлежащих промежутку (х,у]

во вложенииспрашивайте, что непонятно

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.