Напишите программу заполнения одномерного массива любым способом и
найдите сумму всех элементов.

1

Ответы и объяснения

2014-03-09T16:35:43+00:00
Const
n=10;
var
a:array[1..n] of real;
Sum:real;
i:byte;
begin
writeln('Введите числа');
for i:=1 to n do
read(a[i]);
sum:=a[1];
for i:=2 to n do
sum:=sum+a[i];
writeln('Сумма равна = ', sum);
end.