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

Question

Информатика

Стеша

1 февраля, 16:07

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

+4

Ответы (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.