1 го вида есть 100 вариантов (1.2.3.4.5.) 2го варианта 99(100-1 первый теперь надо умножить 100 на 99
1. Два мальчика пристают к берегу - цели переправы дозора и том один из них выходит на берег.
2. Оставшийся в лодке мальчик плывет к берегу с дозором и высаживается там.
3. В лодку садится дозорный и переправляется через реку.
4. Место дозорного занимает мальчик и переправляется на берег, где его ждет другой мальчик и оставшийся дозорный.
5. Второй мальчик садится в лодку и получается исходная ситуация, но переправиться нужно уже одному дозорному.
6-8. Повторяются пункты 1-3
<span>Нельзя преобразовать тип real к byte
</span>S(y+x, y, z);
begin
var (m, n) := ReadInteger2('Число строк и столбцов:');
var a := MatrRandom(m, n, -99, 99);
a.Println(5);
Writeln;
var t := a.ElementsWithIndices.MinBy(p -> p[0]);
a[t[1], t[2]] := a.ElementsByRow.Sum;
a.Println(5)
end.
var
B: array [1..14] of Real;
i: Integer;
s: Real;
begin
Randomize;
WriteLn ('Mассив:');
for i := Low (B) to High (B) do begin
B [i] := Random (100) - 50;
Write (B [i]:5:2, ' ');
end;
s := 0;
for i := Low (B) to High (B) do begin
if B [i] > 0 then
s := s + B [i];
end;
WriteLn;
WriteLn ('Сумма положительных элементов массива = ', s:5:2);
end.