<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(20,-50,50); a.Println;
var im:=a.Pairwise.Select(t->Abs(t[0]-t[1])).ToArray.IndexMin;
Println(a[im],a[im+1]);
end.
<u>Пример</u>
7 -46 48 -46 -1 -33 40 -30 -45 -47 -5 14 21 -15 -17 -36 39 5 22 -19
-45 -47
11025000*32*10*2=7056000000 бит = 882000000 байт = 861328,125 Кб = 841,1407470703125 Мб
1.Перевезёт волка
2.Перевезёт капусту
3.Перевезет козу.
var
x, y, z, p : real;
function max (a, b : real) : real;
begin
if a > b then max := a else max := b;
end;
function min (a, b : real) : real;
begin
if a < b then min := a else min := b;
end;
begin
read (x, y, z);
if z < 0 then p := max (x, y) else p := min (x, y);
write (p);
end.
Ответ:
За почерк извиняюсь, если что-то не понятно - спрашивай)