program SumOfArrayElements;
vaarr: array[1..5] of Integeri, sum: Integer;
begisum := 0;
writeln('Введите пять чисел:')for i := 1 to 5 dbegireadln(arr[i])sum := sum + arr[i]end;
writeln('Сумма элементов массива: ', sum)end.
program SumOfArrayElements;
va
arr: array[1..5] of Integer
i, sum: Integer;
begi
sum := 0;
writeln('Введите пять чисел:')
for i := 1 to 5 d
begi
readln(arr[i])
sum := sum + arr[i]
end;
writeln('Сумма элементов массива: ', sum)
end.