Question

Rog ajutor la acest exercitiu, pentru rezolvare dau coroana.cel mai bun raspuns!!!!!!

Answer 1

raspund penru a)
la restul doar inlocueste datele conform conditiei

a)
Program P1;
const nmax=100;
type vector=array[1..nmax] of real;
var n:integer;x:vector;
function V(n:integer;x:vector) of real;
var i:integer;p:real;
begin
p:=0;
for i:=1 to n do readln(x[i]);
for i:=1 to n do p:=p+x[i];
V:=p;
end;
begin
readln(n);
writeln(V(n,x));
end.