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

Question

Информатика

Петряха

17 сентября, 20:35

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

+2

Ответы (1)

Знаете ответ?

Васса · 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.