1)16умн90=1440(с)
2)32умн80=2560(с)
3(2560-1440=1120(с)
Ответ:на 1120 байт больше у 2 племени в письме
(Так думаю)
Begin
var a:=ArrRandom(10,-150,250); a.Println;
var max := a.Max;
println('Максимальное = ', max);
a.Transform(t->t=max ? max*(-1):t);
a.Println;
end.
//PascalABC (версия 3.4.2, сборка 1889 от 04.12.2018)
var
n, m : integer;
begin
writeln('Определение максимального числа последовательности');
writeln('положительных чисел');
writeln;
writeln('Вводите после стрелки числа. Для завершения ввода введите ноль.');
writeln;
m := 0;
repeat
n := ReadlnInteger('-> ');
if n > m then m := n;
until n = 0;
writeln;
writeln('Максимальное число: ', m)
end.