// PascalABC.NET 3.2, сборка 1362 от 14.12.2016 // Внимание! В других версиях языка работа не гарантируется!
begin var m:=ReadInteger('Количество строк в массиве:'); var n:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив A[',m,',',n,'] ***'); var a:=MatrRandom(m,n,-50,50); a.Println(4); Writeln(4*a.ColCount*'-'); var k:=a.Rows.Select(x->x.Aggregate(0,(x,y)->x+y)).ToArray.IndexMax; for var j:=0 to (n-1) div 2 do Swap(a[k,j],a[k,n-1-j]); a.Println(4) end.
Пример Количество строк в массиве: 4 Количество столбцов в массиве: 5 *** Исходный массив A[4,5] *** 29 36 -50 -4 -32 -1 -10 -7 -47 -50 -16 4 48 -41 -43 8 46 45 14 -44
Единственный разбить запись 1311 на два числа – это 13 и 11 (числа 131 и 311 не могут образоваться в результате сложения значений двух десятичных цифр) 2) Сумма первой и второй цифр должна быть наименьшей (тогда и число будет меньше!), она равна 11; тогда сумма значений двух последних цифр равна 13 3) Для того, чтобы всё число было минимально, числа, составленные из первых двух и последних двух цифр должны быть минимальными соответственно для сумм 11 и 13 4) Минимальное двузначное число, у которого сумма значений цифр равна 11, - это 29, с этих двух цифр начинается исходное четырёхзначное число 5) Сумма двух последних цифр – 13, минимальное двузначное число с такой суммой цифр – 49.
11 байт
Объяснение:
1 символ = 1 байт
(Пробелы тоже считаются)