Question

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

Answer 1

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.