Дано: массив B(10) и число C Определить:

Question

Дано: массив B(10) и число C
Определить:

---

Answer 1

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]);
end.