это 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 строка. Все три значения разные, нет такого значения, которое бы было существенно меньше двух других. Не подходит.
// 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.