Три девочки и три папы хотят переплыть на другой берег. плот может выдержать только двух человек. девочки еще маленькие, поэтому сами плыть не могут. а еще они боятся остаться с чужим папой без своего папы. семьям перебраться на другой берег.

Пусть каждая девочка переплывёт со своим папой.

Могу накинуть мыслей:
Когда информация передается по открытым каналам, она может подвергнутся перехвату, многих такая ситуация не устраивает, и не многие принимают меры, а именно: начинают использовать зашифрованный канал между двумя собеседниками(вроде можно и большее кол-во пользователей).

Хакер - Ева, Объект отправки - Маша, Объект приёма - Коля.

Маша кодирует информацию(шифрует) -> отправляет Коле |подключается Ева (пытается прочитать инфу, а она собака зашифрована, у Евы нету ключа (алфавита) дешифровки, она осталась с дыркой от бублика)| -> Коля получил инфу (расшифровал заранее полученным по почте или через пересылку ключём (алфавитом), остался рад, он получил любовное послание, никто его не перехватил

1)
var
  arr: array[1..17] of smallint;
  k, i: smallint;

begin
  randomize();
  k := 0;
  write('Массив до замены:    ');
  for i := 1 to 17 do
  begin
    arr[i] := random(10, 99);
    write(arr[i], ' ');
  end;
  writeln();
  write('Массив после замены: ');
  for i := 1 to 17 do
  begin
    if arr[i] = 50 then begin
      arr[i] := 0;
      k := k + 1;
      write(' ');  //эта строка только для оформления вывода, она необязательна
    end;
    write(arr[i], ' ');
  end;
  writeln();
  writeln('Кол-во замененных элементов: ', k);
end.

2)
var
  arr: array[1..17] of smallint;
  k, i: smallint;

begin
  randomize();
  k := 0;
  write('Массив до замены: ');
  for i := 1 to 17 do
  begin
    arr[i] := random(10, 99);
    write(arr[i], ' ');
    if arr[i] = 50 then k := k + 1;
  end;
  writeln();
  writeln('Кол-во элементов, равных 50-ти: ', k);
end.