100*60*80=480000 байт (1 книга в байтах)
480000:1024=468.75кБайт (1 книга в кбайтах)
650*1024=665600кБайт (Объем диска в кбайтах)
665600:468.75=1419.94
Ответ: всего можно хранить 1419 книг (для 1420 не хватает места)
===== PascalABC.NET =====
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, -50, 99);
a.Println;
var (s, p) := (0, BigInteger.One);
for var i := 0 to a.High do
begin
s += a[i];
p *= a[i]
end;
Println('Сумма', s, ' произведение', p,
' среднее', s / a.Length)
end.
B и c. Так как они выполняют данный им алгоритм, а книга и сок ничего не выполняют.