Дан массив целых чисел n=12, заполните случайным образом с промежутком от -10 до 60, удалите все элементы в которых последняя цифра чётная, а само число делится на неё. вставьте число k перед и после всех элементов заканчивающихся на данную цифру.

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

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

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

begin

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

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

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

end;

begin

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

 Массив.Println; // исходный массив

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

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

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

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

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

 var Список:=new List<integer>; // создали пустой список

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

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

   begin

     Список.Add(K);

     Список.Add(Массив[Индекс]);

     Список.Add(K)

   end

   else

     Список.Add(Массив[Индекс]);

   Массив:=Список.ToArray;

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

end.

это 2

Program

   {

       static void Main(string[] args)

       {

           Random rand = new Random();

           Console.WriteLine("Введите размерность матрицы MxM :");

           int M = Convert.ToInt32(Console.ReadLine());

           int[,] matrix = new int[M, M];

           for (int j = 0; j < M; j++)

           {

               for (int m = 0; m < M; m++)

               {

                   matrix[j, m] = rand.Next(-10, 10);

                   Console.Write(matrix[j, m] + " ");

                   

               }

               Console.WriteLine();

               

Рядок 11

Объяснение:

На диаграмме три сектора, значит диапазон должен содержать 3 значения. По таблице видно, что в столбцах 4 значения, а в строках - 3, значит столбцы не подходят, а искать нужно в строках.

На диаграмме 2 больших, почти одинаковых сектора и 1 значительно меньший, значит среди строк нужно искать такую, в которой 2 близких или одинаковых значения, а третье значение меньше двух других.

Анализируем:

9 строка: три различных значения, двух одинаковых или очень близких по величине значений нет. Не подходит.

10 строка: два одинаковых значения - 15, и третье 17, но 17 > 15, в таком случае на диаграмме был бы один большой сектор и два сектора поменьше. Не подходит.

11 строка: 56 и 57 - близкие по величине, 11 значительно меньше двух других значений в столбце. Подходит

12 строка. Все три значения разные, нет такого значения, которое бы было существенно меньше двух других. Не подходит.