Дано n чисел составить программу для нахождения суммы этих чисел через цикл пока

Question

Дано n чисел составить программу для нахождения суммы этих чисел через цикл пока

Comments

Я могу сделать, при этом числа будут генерироваться с помощью random. Или надо, что пользователь вводил эти числа с клавиатуры?

---

И еще вопрос. Сколько именно чисел вводит пользователь?

Answer 1

Var i,n,s: integer;beginn:=10;while i < n+1 dobegins:= s + i;writeln(i,s:4);i:= i +1;end;end.