Întrebare
cine ma ajuta sa fac citeva programe
Scrieti un program care va citi de la tastatura elementele un tablou unidimiosional cu numele "M" alcatuit de 10 elemente de tip integer
a)sa se afle suma elementele tablouluii "M"
b)aflati produsul primilor 4 ale tabloului "M" si afisati produsul si suma
Scrieti un program care va citi de la tastatura elementele un tablou unidimiosional cu numele "M" alcatuit de 10 elemente de tip integer
a)sa se afle suma elementele tablouluii "M"
b)aflati produsul primilor 4 ale tabloului "M" si afisati produsul si suma
Întrebare a fost pusă de: USER1223
310 Vezi
310 Răspunsuri
Răspuns (310)
Program elemente;
type vector=array[1..10] of integer;
var m:vector; i,s,p:integer;
begin
for i:=1 to 10 do begin
write('m[,i,']='); readln(m[i]); end;
for i:=1 to 10 do
s:=s+m[i];
for i:=1 to 4 do
p:=p*m[i];
writeln('Suma=,s);
writeln('Produsul=',p);
readln; end.
type vector=array[1..10] of integer;
var m:vector; i,s,p:integer;
begin
for i:=1 to 10 do begin
write('m[,i,']='); readln(m[i]); end;
for i:=1 to 10 do
s:=s+m[i];
for i:=1 to 4 do
p:=p*m[i];
writeln('Suma=,s);
writeln('Produsul=',p);
readln; end.