Напишите программу в паскале, которая будет вычислять сумму N целых чисел. Количество...

Question

Напишите программу в паскале, которая будет вычислять сумму N целых чисел. Количество чисел N и сами числа пользователь водит с клавиатуры.


Окно вывода:
Введите количество чисел для сложения: 3
1 число: 9
2 число: 3
3 число: 1
Сумма = 13

Answer 1

Program n_1;
var n, s, i, v:integer;
begin
s:=1;
writeln('Введите кол-во чисел');
readln(n);
for i:=1 to n do
begin
writeln('Введите число');
readln(v);
s:=s+v;
end;
writeln('s=',s);
end.

Comments

НЕ РАБОТАЕТ!!! Вот что выдает:

---

Введите кол-во чисел:
3
Введите число:
9
Введите число:
3
Введите число:
1
Cумма = 11

---

У меня нормально получается