10 символов
32 = 2^5 => 5 бит/символ
10 * 5 = 50 бит
<h3>PascalABC.NET 3.4.2, сборка 1811 от 01.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var p:=SeqRandomReal(ReadInteger('n='),-99,99)
.Select(t->Round(t,2)).ToArray;
p.Println;
Println('Сумма положительных',p.Where(r->r>0).Sum);
Println('Сумма отрицательных',p.Where(r->r<0).Sum)
end.
For i:=1 to m-1 do
for j:=i+1 to m do
<span>a[i,j]:=0;
</span>
С блокнота попробуй открыть, если нет то хз