Var
a: array[1..100] of integer;
i,n,c,h: integer;
begin
writeln('Введите кол-во элементов последовательности:'); readln(n);
writeln('Введите последовательность:');
for i:=1 to n do
begin
read(a[i]);
if a[i]<0 then
begin
c:=c+a[i];
h:=h+1;
end;
end;
writeln(c/h);
<span> end.</span>
1)Т.к. каждый символ может иметь 64 значения, то есть 2^{6} , то на каждый символ выделяется 6 бит(от 0 до 63, всего 64 варианта).Всего символов - 1000. Значит всего нужно 6*1000=6000бит=750байт
2)Один символ (включая пробел) = 1 байт
перевод в байты - 3.5 Кб * 1024 байт = 3584 байт
Количество символов - 3584
Пердык пук пук пук пук пукпупкпупк пукпу кпук