С клавиатуры вводится массив из m чисел.Найти сумму элементов массива.

Question

С клавиатуры вводится массив из m чисел.Найти сумму элементов массива.

Comments

это что

---

там нет решения токо что заходила

---

нет конечно не смогу

---

а зачем это

---

неее я в этом ноль мне тоже надо решить свою задачу я ее тоже не могу решить

Answer 1

Var m:integer;
var i:integer;
var mass:array of integer;
begin
write('Razmernost masiva: ');
readln(m)
;mass:=new integer[m];
for i:=0 to m-1 do begin 
write('a[',i,']: '); 
readln(mass[i]); 
end;   

var sum:integer; 
sum:=0; 

 for i:=0 to m-1 do 
sum += mass[i];   
writeln('Summa vseh elementov massiva: ', sum)
end.