Массив А вводится с клавиатуры. Отыскать сумму его частей. Размер случайный.

Размер массива брал за 100, если нужно поменять количество частей, то просто поменяй значение N в шапке программы.


const N = 100;
var
i,sum: integer;
a: array [1..N] of integer;
begin
write(Введите элементы массива: );
For i:=1 to N do
read(a[i]);
sum:=0;
For i:=1 to N do
sum:= sum + a[i];
writeln(sum);
end.