Даны натуральные число n, действительные числа a1,...an. Вычислить а1+...+an. ** паскале

Question

Даны натуральные число n, действительные числа a1,...an. Вычислить а1+...+an. На паскале

Answer 1

Var a,s:real; i:integer;
begin
write ('Введи натуральное число n = '); readln (n);
s:=0;
for i:= 1 to n do begin
readln (a); s:=s+a;
end;
write ('S= ',s);
end.

Comments

Спасибо))