Даны натуральные число n, действительные числа a1,...an. Вычислить а1+...+an. На паскале
Даны натуральные число n, действительные числа a1,...an. Вычислить а1+...+an. На паскале
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы