Если а>=х то хватит.
а если не хватит, то нужно добавить х-а рублей
30*70*5=10500 всего символов
2²=4
значит 2 бит занимает один символ
10500*2=<em>21000 бит </em>
Формулы
1) a+a+a \ 3
2)нужно знать ср. арифм. и 1 число
var a:array of longint;
i,c,x,n,k:longint;
begin
read(n); //длина массива
a:= new longint[n];
for i:=0 to n-1 do read(a[i]);
read(c);//некоторое число С
for i:=0 to n-1 do
if a[i]>c then
begin
k+=1;
x+=a[i]
end;
writeln(x/k);//ответ на первый пункт
k:=0;
x:=0;
for i:=0 to n-1 do
if i mod 2=0 then
begin
k+=1;
x+=a[i];
print(a[i])//второй пункт
end;
writeln;
write(x/k)// третий пункт
end.
const n=5;
var a: array[1..n] of integer;
i,x,k: integer;
begin
randomize;
write('x=');
readln(x);
k:=0;
write('massiv: ');
for i:=1 to n do begin
a[i]:=random(201)-100;
write(a[i],' ');
if a[i]>x then k:=k+1;
end;
writeln;
write('k=',k);
end.