const n=10;
var a:array [1..n] of real;
i,mi:integer;
s,m,p:real;
begin
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random*20-10;
write(a[i]:0:3,' ');
if a[i]>0 then s:=s+2*a[i];
end;
writeln;
m:=a[1];
mi:=1;
for i:=1 to n do if a[i]>m then
begin
m:=a[i];
mi:=i
end;
p:=1;
for i:=mi to n do if a[i]<0 then p:=p*2*a[i];
writeln ('Удвоенная сумма всех положительных элементов массива: ',s:0:3);
if p=1 then writeln ('Отрицательных чисел после максимального элемента нет')
else writeln ('Удвоенное произведение всех отрицательных элементов массива, расположенных после максимального элемента: ',p:0:3);
end.
V = 256 000 бит/с
t = 20 минуты = 120 секунд
I = V * t
I = 256 000 * 120 = 30720000 бит = 3840000 Байт = 3750 Кбайт
Ответ: 3750 Кбайт
6 = 3*2 = 1*6
1116
1161
1611
6111
2311
3211
2131
3121
2113
3112
1231
1321
1213
1312
1123
1132
4 + 4*3 = 16