Question

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

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.

Answer 2

Программа на PascalABC для подсчета суммы n чисел:

program SumOfNumbers;

var
  n, number, sum: integer;
  i: integer;

begin
  sum := 0;
  
  write('Введите количество чисел: ');
  readln(n);
  
  for i := 1 to n do
  begin
    write('Введите число ', i, ': ');
    readln(number);
    sum := sum + number;
  end;
  
  writeln('Сумма введенных чисел: ', sum);
end.

Эта программа сначала запрашивает у пользователя количество чисел (n), затем в цикле запрашивает каждое число и добавляет его к сумме. В конце программа выводит сумму всех введенных чисел.