Дано n чисел. Написать программу, которая подсчитывает их сумму. (PascalABC)

Question

Информатика

Лаврента

26 июня, 00:01

Дано n чисел. Написать программу, которая подсчитывает их сумму. (PascalABC)

+4

Ответы (1)

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

Мариамночка · Answer 1

Wde не работает, так что не проверял ...

var n, x, s, i:integer;

begin

readln (n) ; / / считываем n

for i: = 1 to n do begin

readln (x) ; / / читаем одно из n чисел

s:=s+x; / / добавляем к сумме

end;

writeln (s) ;

end.