Всё просто. Примеры материальных систем: дерево, здание, человек, планета Земля, Солнечная система. Примеры нематериальных систем: человеческий язык, математика. Пример смешанных систем – школа, университет. Она включает в себя как материальные части (школьное здание, оборудование, тетради и пр.) , так и нематериальные (учебные планы, программы, расписание уроков) . Система — это целое, состоящее из частей, взаимосвязанных между собой. Части, образующие систему, называются её компонентами. Вроде так.
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив 8x7 ***'); var a:=MatrRandom(8,7,-99,99); a.Println(5); Writeln(5*a.ColCount*'-'); // исходный массив // заменить все элементы первых трех столбцов на их квадраты for var i:=0 to 2 do a.SetCol(i,a.Col(i).Select(x->x*x).ToArray); Writeln('*** После замены в 3х первых столбцах ***'); a.Println(5); Writeln(5*a.ColCount*'-'); // вставить между средними строками первую строку SetLength(a,9,7); for var i:=7 downto 4 do a.SetRow(i+1,a.Row(i)); a.SetRow(4,a.Row(0)); Writeln('*** После вставки первой строки в середину ***'); a.Println(5); Writeln(5*a.ColCount*'-'); // удалить все столбцы, в которых 1-й элемент больше последнего var d:=0; for var i:=0 to 6 do if a[0,i]>a[8,i] then d+=1 else if d>0 then a.SetCol(i-d,a.Col(i)); SetLength(a,9,7-d); Writeln('*** После удаления столбцов ***'); a.Println(5); Writeln(5*a.ColCount*'-'); // поменять местами первую и последнюю строку a.SwapRows(0,a.RowCount-1); Writeln('*** Результирующий массив ***'); a.Println(5) end.