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!
Răspunsuri la întrebare
Răspuns de
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.
PM07:
Mulțumesc mult
Alte întrebări interesante
Matematică,
8 ani în urmă
Matematică,
8 ani în urmă
Matematică,
8 ani în urmă
Istorie,
9 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă
Limba română,
9 ani în urmă