Question

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

Answer 1

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

126fd57ca757728bab79cc51eca997db.pas

Answer 2

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.

126fd57ca757728bab79cc51eca997db.pas

Answer 3

кажется)

Answer 4

Надеюсь, вопрос еще актуален, готово.

Answer 5

Спасибо огромное задача уже решена)