Question

VĂ ROG!!! Este urgent pentru astăzi. Fie dat tabloul unidimensional a[1..10] of real, de determinat suma elementelor acestui tablou utilizind procedura și produsul elementelor utilizând o funcție. {program cu 2 nivele și 2 subprograme(procedură și funcție)}. Vă rog muuult!​

Answer 1

program Hello;

type arr=array[1..10] of real;

var a:arr;

suma, produs:real;

i:integer;

procedure sumaElementelor(a:array of real);

begin

suma:=0;

for i:=0 to 9 do begin

suma:=suma+a[i];

end;

writeln(suma:2:2);

end;

function produsulElementelor(a:array of real):real;

begin

produs:=1;

for i:=0 to 9 do begin

produs:=produs*a[i];

end;

produsulElementelor:=produs;

end;

begin

 writeln ('Dati elementele tabloului:');

 for i:=1 to 10 do begin

 readln(a[i]);

 end;

 sumaElementelor(a);

 writeln(produsulElementelor(a):2:2);

end.