{ Подсчет суммы элементов одномерного массива }
var a: array[1..10] of integer;
s: longint;
i: integer;
begin
writeln('Введите 10 элементов массива:');
s := 0;
for i := 1 to 10 do begin
readln(a[i]);
s := s + a[i];
end;
writeln('Сумма элементов массива = ', s);
end.
