номер 11, на код паскаля

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

begin

var a := ArrRandom(25, -10, 50);

a.Println;

// 1

a[a.IndexMax] := Round(a.Average);

a.Println;

// 2

a.Where(p -> (p > 0) and (p mod 7 = 0)).Sum.Println

end.