Ответ:

//PascalABC.Net 3.0, сборка 1064

begin

 var n:=ReadInteger('Введите количество элементов в массиве');

 var a:=SeqRandom(n,-25,25).ToArray();

 Writeln('Исходный массив:',#13#10,a);

 Writeln('Результат:',#13#10,a.Where(x->x<>a.Min));

end.

Объяснение:

Это программа удалит с массива