Доделать праграмму с массивом,и вывести сумму. Карандошом(если элемент отрицательн то...

Question

Доделать праграмму с массивом,и вывести сумму.
Карандошом(если элемент отрицательн то сосчитать сумму
выводи сумму).
M=7
T-название таблицы.

---

---

Answer 1

Const M=7
var T:array[1..7] of Integer;
N,i:integer;
begin
For i:=1 to M do
Readln(T[i]);
For i:=1 to M do
N:=N+T[i];
Writeln(T);
end.