PascalABC.NET
#1
begin
var A := ArrRandom(12, -99, 99);
A.Println;
Println(A.Min + A.Max);
end.
#2
begin
var A := Arr(1, 5, 25, 35, 45, 55, 105, 0, 2, 10);
var m := A.Where(p -> p mod 10 = 5).Min;
for var index := 0 to A.Length-1 do begin
if A[index] > 50 then A[index] := m;
end;
A.Println;
end.
Объяснение:
