Дан массив целых чисел n=12, заполните случайным образом с промежутком от

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программка не работает, обновите версию!

function ОставитьЧисло(Число:integer):boolean;

begin

 var ПоследняяЦифра:=Абс(Число mod 10);

 Result:=ПоследняяЦифра.IsEven and (ПоследняяЦифраlt;gt;0) and

     (Число mod ПоследняяЦифра=0)

end;

begin

 var Массив:=ArrRandom(12,-10,60);

 Массив.Println; // начальный массив

 Массив:=Массив.Where(Элемент-gt;ОставитьЧисло(Элемент)).ToArray;

 Массив.Println; // отфильтрованный массив

 var K:=ReadInteger('Введите число K:');

 var ИскомаяПоследняяЦифра:=

     ReadInteger('Какой цифрой кончается число?');

 var Перечень:=new Listlt;integergt;; // создали пустопорожний перечень

 for var Индекс:=0 to Массив.High do

   if Абс(Массив[Индекс] mod 10) = ИскомаяПоследняяЦифра then

   begin

     Перечень.Add(K);

     Перечень.Add(Массив[Индекс]);

     Список.Add(K)

   end

   else

     Перечень.Add(Массив[Индекс]);

   Массив:=Перечень.ToArray;

   Массив.Println // результирующий массив

end.