// PascalABC.NET 3.2, сборка 1437 от 03.05.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив 12x12 ***'); var a:=MatrRandom(12,12,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); Writeln('Строка, содержащая максимальный элемент'); a.Row(a.ElementsWithIndexes.Select(e->(e[0],e[2])) .MaxBy(e->e[1])[0]).Println; Writeln('*** Итоговый массив 12x12 ***'); foreach var i in Range(0,11,2) do a.SetRow(i,(a.Row(i).Sorted.ToArray)); a.Println(4) end.
6*144=864 бит = 108 байт