Question

Составьте программу нахождения наименьшего и наибольшего элементов одномерных массивов A(N), B(N) из числа принадлежащих отрезку (C,D)
Язык PascalABC

Answer 1

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

begin

 var n := ReadInteger('n =');

 var A := ArrRandom(n, -99, 99);

 A.Println;

 var B := ArrRandom(n, -99, 99);

 B.Println;

 var s := (A + B).AsEnumerable;

 Write('Min = ', s.Min, ', max = ', s.Max)

end.