Question

Напишите пожалуйста программу для Паскаль! Очень прошу! Срочно!Дано одномерный массив, элементы которого действительные числа. Найти сумму всех элементов массива. В первую строку ввести единое целое число N (0 Во второй строке введите элементы массива через кл.Пропуск. Значение элементов является действительные числа, по модулю не превышают 100000, например 9.2 4.8 -89.5 8.3 7.3 34.16 5.3 6.45 8.2 -40.4

Answer 1

Ответ:

//PascalABC.NET 3.7.2

##

var n := ReadInteger();

var arr := ReadArrReal(n);

arr.Sum.Println;

Answer 2

Конечно, вот программа на языке Паскаль, которая находит сумму всех элементов одномерного массива:

pascalCopy code
program SumOfArrayElements;

const
  MaxN = 1000;

var
  N, i: Integer;
  A: array[1..MaxN] of Real;
  Sum: Real;

begin
  Write('Введите количество элементов массива (N): ');
  Readln(N);

  if (N < 1) or (N > MaxN) then
  begin
    Writeln('Неверное значение N. Пожалуйста, введите число от 1 до ', MaxN);
    Exit;
  end;

  Writeln('Введите элементы массива через пробел: ');
  for i := 1 to N do
  begin
    Read(A[i]);
  end;

  Sum := 0;
  for i := 1 to N do
  begin
    Sum := Sum + A[i];
  end;

  Writeln('Сумма элементов массива: ', Sum:0:2);
end.

Эта программа сначала запрашивает количество элементов в массиве N, затем вводит элементы массива через пробел и вычисляет сумму элементов. Результат выводится на экран с округлением до двух знаков после запятой.