Помогите пожалуйста) Программирование Паскаль

Question

Помогите пожалуйста) Программирование Паскаль

---

---

---

---

Comments

Это одна и та же задача на всех 4-х листах?

---

Да) не могу лишние убрать) ошибку выдает)

---

Непонятно, а зачем b дано, оно же не используется в формуле?

Answer 1

ПаскальАВС.НЕТ

const
  b=8;
var
  a:array of integer:=(23,30,35,12);
  c:array of integer:=(15,20,25,30);
  i:integer;
  y:real;  

function pr(c:array of integer):integer;
var
  i:integer;
begin 
result:=1; 
for i:=0 to 3 do
    result:=result*c[i];
end;  

begin
for i:=0 to 3 do
  y:=y+a[i]+c[i];
y:=y/pr(c);
writeln('Y=',y);    
end.