const n = 10;
var
mas: array [1..n] of integer;
i,j,h:integer;
begin
randomize;
for i := 1 to n do
begin
mas[i] := random(3);
write(' ',mas[i],' ');
end;
writeln();
for i := 1 to n - 1 do
for j := 1 to n - i do
if(mas[j] = 0) then
begin
h := mas[j];
mas[j] := mas[j + 1];
mas[j + 1] := h;
end;
for i := 1 to n do
write(' ',mas[i],' ');
end.
//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию
uses System;
begin
var a := ArrRandomInteger(100, -100, 100);
Println(a);
var max := a.Max();
a[a.IndexMax()] := 0;
max := max * a.Max();
var min := a.Min();
if (min < 0) then begin
a[a.IndexMin()] := 0;
min := min * a.Max();
end;
writeln(Math.Max(max, min));
end.
А можно подробнее? я не очень понял но срадостю помогу
Ответ:
7 так как нам нужно закодировать 76 элементов, а это больше чем 64 = 2^6, но меньше чем 2^7