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

Question

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

Comments

Странное условие. Если массив случайный, там просто может не оказаться одинаковых чисел...

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