Для генерации случайного целого числа из интервала [10; 20] необходимо использовать выражение

Объяснение:

Первыми переправляются дети.  

Сын возвращается к маме-папе.  

Папа едет на берег к дочери, потом дочь едет за братом и возвращается с ним к папе.  

Сын едет к маме, отдает ей лодку, чтобы она переплыла к папе и дочери.  

После того, как мама переправилась, дочь садится в лодку и едет к брату, подбирает его, и вместе они едут к родителям.  

Дочь остается с родителями, а сын едет к рыбаку, отдает ему лодку.  

Рыбак едет к родителям и высаживается.  

Дочь садится и едет за братом, привозит его с собой обратно (наконец-то вся семья снова вместе), они отдают лодку рыбаку.  

Лодка пересекла реку 13 раз.

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=10;

 Var
 ar:array[1..n] of integer; 
sum,i:integer;
begin
 randomize;
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(-50,50);
   write(ar[i]:4);
   sum:=sum+ar[i];
  end;
 writeln;
 writeln('Sum=',sum);
 writeln('Final array:');
 for i:=1 to n do
  begin
   ar[i]:=ar[i]*5;
   write(ar[i]:6);
  end;
end.

Пример работы программы:
First array:
  24  45  28  40 -48  -7  29  43 -23  18
Sum=149
Final array:
   120   225   140   200  -240   -35   145   215  -115    90