Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  re
Language: PASCAL
Code:
Var
y: array [1..5] of integer;
i: integer;
a,h,z,x,u: real;
begin for i:= 1 to 5 do read (y[i]);
read (a,h);
u:=a;
for i:= 1 to 5 do begin z:= u*y[i]/(x+y[i]);
u:= a+h; end;
writeln (‘z=’,z:3:3);
end.     
          
          
Comments: