Ответ:
program p_1;
const n=15;
var i:integer;
p:real;
a:array [1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(130)-50;
writeln('a[',i,'] = ',a[i])
end;
p:=1;
for i:=1 to n do p:=p*a[i];
writeln;
writeln('p = ',p)
end.
Var
B: array[1..10] of integer;
i, c, p, s: integer;
begin
write('C = ');
readln(c);
for i := 1 to 10 do begin
write('B[', i, ']=');
readln(B[i]);
end;
c := 1;
p := 1; s := 0;
for i := 1 to 10 do begin
p := p * (B[i] - C);
s := s + B[i];
end;
for i := 1 to 10 do
writeln('A[',i,']=',(s-p)*B[i]);
<span>end.</span>
<u>1</u> 30 <u>435</u> 4060 <u>27405</u> 142506 <u>593775</u> 2035800 <u>5852925</u> 14307150 <u>30045015</u> 54627300 <u>86493225</u> 119759850 <u>145422675</u> 155117520 <u>145422675</u> 119759850 <u>86493225</u> 54627300 <u>30045015</u> 14307150 <u>5852925</u> 2035800 <u>593775</u> 142506 <u>27405</u> 4060 <u>435</u> 30 <u>1</u>
Это 30-я строка треугольника Паскаля, расчитанная онлайн на сайтеhttp://calcsbox.com/post/treugolnik-paskala.html. Жирным шрифтом с подчёркиванием выделены все нечётные цифры. Всего их 16.
Ответ: 16.
P.S. На 32-ой строчке ответ 2; на 31-ой строчке ответ 32.