Дан линейный массив найти сумму линейного массива

Вопрос от пользователя: Васена

Дан линейный массив найти сумму линейного массива

Ответ: Анастасий

Program Task;

Const N = 5;

Var a: Array[1 … N] of Integer;

i, sum: Integer;

Begin

WriteLn (‘Введите ‘, N, ‘ целых чисел через пробел’);

For i : = 1 To N Do

Begin

Read (a[i]);

sum : = sum + a[i];

End;

WriteLn (‘Сумма элементов массива: ‘, sum);

ReadLn;

End.