111111110,,,,,,,,,,,,,,,,,,,,,
Программа написана на PascalABC.NET
// Ниже код:
program element;
var a: array[1..1000] of real; i, j, c: integer; b: real; begin writeln('Введите число элементов: '); read(j); for i:= 1 to j do begin read(a[i]); b:= b + a[i]; end; b:= b / j; for i:= 1 to j do if a[i] > b then inc(c); writeln; write('Ответ: ', c);end.
1. 2 байта (каждый символ) * 64 (символа в строке) * 36 (строк на странице) * 14 (страниц в тексте) = 64512 байт = 63 килобайта, ответ 4
2. 8 бит = 1 байт,
1 байт (каждый символ) * 48 (символов в строке) * 36 (строк на странице) * 48 (страниц в тексте) = 82944 байт = 81 килобайт, ответ 3
1) Семь
2) Три
Решение могу записать в комментарии, если нужно