Здравствуйте. Задача: написать программу ** Pascal ABC Net, суть которой заключается в...

Question

Здравствуйте. Задача: написать программу на Pascal ABC Net, суть которой заключается в том, что человек для начала должен ввести n чисел, после чего программа должна их суммировать и выдать результат. ДАЮ 100 БАЛЛОВ!

Comments

я вот написал программу которая считывает определнное коичество чисел

---

var n, sum, x,k: integer;beginsum:=0;for k:=1 to n do begin readln(x); sum:=sum+x; end;end.

---

тоесть ты говоришь сколько чисел вводить

---

например 3

---

и ты потом вводишь эти три числа

---

а стой программа не так

---

var n, sum, x,k: integer;beginsum:=0;for k:=1 to n do begin readln(x); sum:=sum+x; end;end.

---

нееет не читай это

---

вот теперь она правильная и будет работать

---

var n, sum, x,k: integer;beginsum:=0;readln(n);for k:=1 to n do begin readln(x); sum:=sum+x; end;end.

Answer 1

// PascalABC.NET 3.3

begin
  var n:=ReadInteger('n =');
  var a:=ReadSeqInteger('Введите '+n+' чисел: ',n);
  writeln('s = ',a.Sum);
end.

Пример:n = 5
Введите 5 чисел:  2 7 4 3 5
s = 21