// PascalABC.NET 3.7.2
// Да, именно так выглядит pascal.net.
function MinMax<T>(source: Array of T): (T, T);
where T: System.IComparable<T>;
begin
var max := source.First();
var min := source.First();
foreach var item:T in source do begin
if item.CompareTo(max) > 0 then max := item
else if item.CompareTo(min) < 0 then min := item
end;
Result := (min, max);
end;
begin
var src := ArrRandom();
src.PrintLn;
var (min, max) := MinMax(src);
PrintLn(string.Format('Min, max values of source array is {0}, {1}', min, max));
end.
Объяснение:
постфикс .net указывает на то, что язык имеет поддержку платформы MS.NET. Решение выполнено средствами платформы MS.NET и среды PascalABC.NET 3.7.2
Витя - Москва
Гриша Санкт Петербург
Егор - Киров