На одной фотографии всё уместить не получилось ;)
N=2^i
N=128 i=7 бит -вес(информационная емкость 1 символа)
Умножаем все символы на вес одного сим.80*80*7=11200 бит
Переводим в байты 11200/8=1400 байт
Запишем условие в 10-ном коде:
х(10)+2738-2584=138, х(10)=-16(10), двоичное отрицательное число в дополнительном коде х(2)=10000(2)
В Делфи не проверял, но должна работать. Если что, пиши.
const
n=5;
m=6;
var
a:array[1..n,1..m]of integer;
i,j,s,p,min,max:integer;
begin
s:=0;
p:=0;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10);
min:=a[1,1];
max:=min;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:3);
if a[i,j]>max then max:=a[i,j];
if a[i,j]<min then min:=a[i,j];
end;
writeln
end;
for i:=1 to n do
begin
if p>2 then break;
for j:=1 to m do
begin
if p>2 then break;
if a[i,j]=max then p:=p+1;
if a[i,j]=min then p:=p+2;
if p>0 then s:=s+a[i,j];
end;
end;
writeln('S=',s)
end.
<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
Println(' ^~^ ');
Println('(`:'')');
Println('<###>');
Println(' / \ ');
Println('= = ')
end.
<h2>Можно Println заменить на Writeln</h2>