За какое наименьшее кол-во выстрелов в морсом бое можно гарантированно потопить четырехпалубный корабль, если вычислить гарантированно его можно за 24?

я пробовала у меня вышло 15 но возможны и другие варианты

Uses crt; type   mco = array[1..200] of longint; {строка массива - до 200 столбцов}   dv = ^mco; {указатель на строку массива}   mr = array[1..150] of dv; {массив указателей на строки} var   a: mr; {создается массив указателей на строки}   n,m: longint; procedure shiftcycle(row: longint; k: longint); var   i, j, e: longint; begin   for i : = 1 to k do   begin       e : = a[row]^[m];       for j : = m - 1 downto 1 do a[row]^[j + 1] : = a[row]^[j];       a[row]^[1] : = e   end; end; var   i, j, e: longint; begin   clrscr;   writeln('введите число строк и столбцов массива');   readln(n,m);   writeln('введите элементы массива');   for i : = 1 to n do   begin       getmem(a[i], m * sizeof(longint)); {фактическое выделение памяти под i-ю строку строку массива}       writeln('строка ',i,': ');       for j : = 1 to m do read(a[i]^[j])   end;   writeln;   for i : = 1 to n do   begin       shiftcycle(i, i);       for j : = 1 to m do write(a[i]^[j]: 4);       writeln;       freemem(a[i], m * sizeof(longint)) {освобождение памяти из-под i-й строки массива}   end end. тестовый прогон: введите число строк и столбцов массива 4 5 введите элементы массива строка 1: 1 2 3 4 5 строка 2: 6 7 8 9 10 строка 3: 11 12 13 14 15 строка 4: 16 17 18 19 20     5      1    2      3    4     9  10    6      7    8   13  14  15  11  12   17  18  19  20  16

Const   n = 20; var   i, e: integer;   f: file of integer; begin   randomize;   assign(f, 'output.txt');   rewrite(f);   writeln('исходный файл');   for i : = 1 to n do   begin       e : = random(20) - 10;       write(f, e);       write(e: 4)   end;   close(f);   reset(f);   writeln;   writeln('обработанный файл');   i : = 0;   while not eof(f) do   begin       read(f, e);       i : = i + 1;       if i mod 2 < > 0 then begin           seek(f, i-1);           write(f, 1);           seek(f, i-1);           read(f, e)       end;       write(e: 4)   end end. тестовое решение: исходный файл   -6    4  -3  -7    6  -1  -4    8  -7  -5    5 -10    5  -1  -9  -7  -5  -1    9    8 обработанный файл     1    4    1  -7    1  -1    1    8    1  -5    1 -10    1  -1    1  -7    1  -1    1    8