Question

Паскаль!
Дан массив сформированный случайным образом составить программу которая выводит новый массив без повторяющегося заданного числа

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var k:=ReadInteger('Введите число-дубликат для удаления:');
  var id:=a.FindIndex(t->t=k);
  if id>-1 then a:=a[:id+1]+a[id+1:].Where(t->t<>k).ToArray;
  a.Println
end.

Пример
n= 20
-23 -34 14 35 -16 -4 42 -13 -3 -49 24 49 26 -12 -16 16 47 33 -1 -16
Введите число-дубликат для удаления: -16
-23 -34 14 35 -16 -4 42 -13 -3 -49 24 49 26 -12 16 47 33 -1