Массив А вводится с клавиатуры. Найти сумму его элементов. Размер произвольный. Паскаль.

Как это сделать «по-простому», когда число элементов заранее не известно: читаем числа до конца ввода и суммируем. Это работает в Free Pascal/TP. Завершение ввода — Ctrl+Z и Enter (Windows) или Ctrl+D (Linux/macOS).

pascal
Копировать код
program SumUntilEOF;
var
  x: Int64;
  s: Int64;
begin
  s := 0;
  while not SeekEof do
  begin
    Read(x);
    s := s + x;
  end;
  Writeln('Sum = ', s);
end.

Если всё-таки нужно именно «массив А» и размер вводится первым — используйте динамический массив:

pascal
Копировать код
program SumDynamicArray;
var
  A: array of Int64;
  n, i: Integer;
  s: Int64;
begin
  ReadLn(n);            { сначала вводим размер }
  SetLength(A, n);
  s := 0;
  for i := 0 to n - 1 do
  begin
    Read(A[i]);
    s := s + A[i];
  end;
  Writeln('Sum = ', s);
end.

Оба варианта считают сумму элементов, разделённых пробелами/переносами строк. Если нужны вещественные числа — замените Int64 на Real (или Double).