Батько з двома синами вирушили у похід.на іхньому шляху трапилась річка, на березі якоі був пліт.він може витримати на воді або ботька, або двох синів.як переправитися на інший берег батькові та синам?

Спочатку потрібно переправити двох синів, потім одного з них відправити назад, посадити на пліт батька і відправиди на інший берег до одного з синів, потім того сина переправити до його брата і вони обоє переправляться через річку.

Begin   var max : = 0;   var n : = readinteger('введите n: ');   write('введите n чисел: ');   for var i : = 1 to n do   begin     var a : = readinteger();     if(a.tostring.length > 1) then         if(a.tostring[a.tostring.length - 1] = '0') then           if(a > max) then max : = a;   end;     if(max = 0) then write('нет таких чисел.')     else write(max); end.

1. современный вариант (коротко, быстро и наглядно, кто знает). так уже начали учить в некоторых школах. // pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var s: =arrrandom(readinteger('n='),1,300).println.           where(k-> (k> =100) and ((k mod 100) div 10=0));   if s.count> 0 then writeln(s.max) else writeln('нет элементов') end. пример n= 15 76 283 171 140 113 65 185 35 202 42 93 51 205 76 138 205 2. а так по-прежнему учат в большинстве школ. стиль "80-х годов прошлого века". долго, длинно, можно наделать ошибок, но по-другому эти учителя сами не могут. const   nn=100; var   i,n,max: integer;   a: array[1..nn] of integer; begin   write('n=');   read(n);   randomize;   max: =0;   for i: =1 to n do begin       a[i]: =random(300)+1;       write(a[i],' ');       if (a[i]> =100) and ((a[i] mod 100) div 10=0) then           if a[i]> max then max: =a[i]       end;   writeln;   if max> 0 then writeln(max)   else writeln('нет элементов') end. пример n=15 219 68 131 115 104 169 80 288 143 108 124 214 50 101 1 108