Янт приземлился на второй картинке. Расположение "+" по картинками таково:
1)++-++
2)+++++
3)++++-
4)+-+++
Весь программный код находится в прикреплённом файле, желательно протестировать его на заранее просчитаных значениях. Если возникнут какие-то вопросы по коду, напишите мне и я Вам с удовольствием помогу.
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(3,8,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Искомое произведение ',
a.ElementsWithIndexes.Where(t->t[2].IsOdd).Select(t->t[0]).
Aggregate(BigInteger(1),(x,y)->x*y));
end.
<u>Пример</u>
*** Исходный массив ***
60 -23 10 -18 -97 -90 -56 5
32 51 -2 3 63 -76 17 85
-41 -64 9 59 84 -66 69 28
--------------------------------
Искомое произведение 1284904222221312000
Сами программы не проверял, если они правильные, то
2)
program zak; uses crt;
type danie=record
litri:string;
cislo:string;
end;
DanieVodi=file of danie;
var DV:DanieVodi;
D:danie;
i,n:integer;
begin clrscr;
assign(DV,'d:\azaz.txt');
rewrite(DV);
repeat
writeln('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou'); readln(D.cislo);
writeln('BBeDuTe KoJlu4ecTBo IIoTpa4eHou BoDbl');
readln(D.litri);
if D<>'stop' then write(DV,D);
until D='stop';
close(DV);
readln;
<span>end.
</span>
1)
uses crt;
type danie=record
litri:string;
cislo:string;
<span><em>max,min:real;</em></span>
end;
DannieVodi=file of danie;
var DV:DannieVodi;
D:danie;
i,n:integer;
cislo1:string;
begin clrscr;
assign(DV,'d:\azaz.txt');
reset(DV);
write('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou:');
read(cislo1);
while not eof(dv) do
begin
read(DV,D);
if min='0' then min:=StrToFloat(D.cislo)<span>;
</span>if StrToFloat(D.cislo)<min then min:=StrToFloat(D.cislo);
<span>if StrToFloat(D.cislo)>max then max:=StrToFloat(D.cislo);
</span>
if cislo1=D.cislo then
writeln('6blJlo IIoTpa4eHo "',D.litri,'" JluTpoB BoDbi');
end;
writeln('min=',min);
<span>wtiteln('max=',max);
</span>
close(DV);
readln;
end.
Если это не учебная задача, то лучше сделать ее в Access. Там интерфейс красивый и дружелюбный легко получить.
<em>Если вы имели в виду, что мощность алфавита = 64, то:</em>
Дано:
K = 20
N = 64
Решение:
N = 64 => i = 6;
I = K * i
I = 20 * 6 = 120(бит)
Ответ: I = 120 бит.