Вводятся n целых чисел. Найти сумму всех чисел.

Question

Информатика

Венцеслава

25 мая, 21:13

Вводятся n целых чисел. Найти сумму всех чисел.

+3

Ответы (2)

Знаете ответ на вопрос?

Надеха · Answer 1

Program n1;

var n, sum, a, i: integer;

begin

readln (n) ;

sum:=0;

for i:=1 to n do

begin

readln (a) ;

sum:=sum+a;

end;

writeln (sum) ;

end.

Галинуха · Answer 2

Var

A, n:integer;

S:real;

Begin

Write ('n = ') ; ReadLn (n) ;

For n: = 1 to n do

Begin

Read (A) ;

S:=S+A;

End;

WriteLn ('Сумма чисел равна ', S) ;

End.