Код IT
← Каталог

Pascal / Free Pascal — типовые программы — 10.4. Сумма элементов массива (явное хранение)

Фрагмент из «Pascal / Free Pascal — типовые программы»: 10.4. Сумма элементов массива (явное хранение).

pascal lab1140 embed URL статья в энциклопедии
Pascal main.pas 
program SumArray;

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 SumArray;

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.