Информатика, опубликовано 2018-08-22 21:59:23 by Гость
Даны натуральные число 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.