Вычислить сумму 10 чисел введённых с клавиатуры (на паскале). Заранее спасибо.
var i,sum,x:integer;
begin
for i:=1 to 10 do
begin
read(x);
sum:=sum+x;
end;
writeln(sum);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Вычислить сумму 10 чисел введённых с клавиатуры (на паскале). Заранее спасибо.
var i,sum,x:integer;
begin
for i:=1 to 10 do
begin
read(x);
sum:=sum+x;
end;
writeln(sum);
end.