// 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
ответ с Объяснением:
23. По моему методу:
Запишем степени 2, начиная с 0 слева направо:
16 8 4 2 1
1 0 1 1 1
ответ: 10111₂
Под степенями записано сколько раз степень 2 влезет в число. Распишу на примере двоичной системы. У нас есть число 23. Максимальная степень 2 которая в это число влезет - 16. Она влезает в число 23 1 раз. Записываем 1, а на правые числа оставляем остаток. Было число 23, отняли 16 * 1, получилось 7. В семерку число 8 не влезает, поэтому пишем 0 раз и оставляем остаток: 7 - 8 * 0 = 7. Так же проделываем с остальными числами. Последнее число должно быть единицей - любое число в 0 степени. Нижние цифры и получились ответом - 10111₂, можете загуглить и проверить.
С шеснадцатеричной системой, как и с любой другой, все обстоит точно так же. Только в 16 системе добавляются цифры: А = 10, В = 11, С = 12, D = 13, E = 14, F = 15. Запишем степени числа 16 и решим пример:
16 1
1 7
ответ: 17₁₆
С восьмеричной системой все разумеется так же
8 1
2 7
ответ: 27₈
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); Print('A:'); a.Println;
var b:=ArrRandom(n,-50,50); Print('B:'); b.Println;
var c:=a.Concat(b).ToArray; Print('C:'); c.Println;
end.
Пример
n= 10
A: -7 25 -44 -28 40 -19 46 -15 9 2
B: -13 37 -38 -16 -4 35 23 -19 7 -32
C: -7 25 -44 -28 40 -19 46 -15 9 2 -13 37 -38 -16 -4 35 23 -19 7 -32