Pascal / Free Pascal — типовые программы — Шаблон B — массив из n чисел

Код IT Загрузка примера кода…

program ArraySum;

var
  n, i: integer;
  sum: int64;
  x: integer;

begin
  ReadLn(n);
  sum := 0;
  for i := 1 to n do
  begin
    Read(x);
    sum := sum + x;
  end;
  ReadLn;
  WriteLn(sum);
end.

program ArraySum;

var
  n, i: integer;
  sum: int64;
  x: integer;

begin
  ReadLn(n);
  sum := 0;
  for i := 1 to n do
  begin
    Read(x);
    sum := sum + x;
  end;
  ReadLn;
  WriteLn(sum);
end.

program ArraySum2;

const
  MAXN = 100000;

var
  n, i: integer;
  a: array[1.MAXN] of integer;
  sum: int64;

begin
  ReadLn(n);
  for i := 1 to n do
    Read(a[i]);
  ReadLn;
  sum := 0;
  for i := 1 to n do
    sum := sum + a[i];
  WriteLn(sum);
end.

program ArraySum2;

const
  MAXN = 100000;

var
  n, i: integer;
  a: array[1.MAXN] of integer;
  sum: int64;

begin
  ReadLn(n);
  for i := 1 to n do
    Read(a[i]);
  ReadLn;
  sum := 0;
  for i := 1 to n do
    sum := sum + a[i];
  WriteLn(sum);
end.