Question

Помогите пожалуйста решить оба задания

Answer 1

===== PascalABC.NET =====

begin

 // 1

 var a := ArrRandom(20, -99, 99);

 a.Println;

 a := (a[::2].Sorted).Interleave(a[1::2].SortedDescending).ToArray;

 a.Println;

 // 2

 Writeln;

 var b := MatrRandom(5, 6, -99, 99);

 b.Println(4);

 Writeln;

 var c := b.Rows.Select(row -> row.Max).ToArray;

 c.Println

end.