Дано несколько чисел. Напишите программу, вычисляющую их сумму. Сначала вводится...

Question

Дано несколько чисел. Напишите программу, вычисляющую их сумму. Сначала вводится количество чисел N, затем вводится ровно N целых чисел. Используйте цикл for.

Answer 1

Var
  mas: array[1..99999] of integer;
  n, i, sum: integer;

begin
  write('Сколько чисел? ');
  readln(n);
  writeln('Введите числа:');
  for i := 1 to n do
  begin
    readln(mas[i]);
    sum := sum + mas[i];
  end;
  writeln('Сумма = ', sum);
end.

---