Question

PASCAL: найти сумму всех элементов массива

Answer 1

Программа:

Pascal:

var

 arr: array[1..10] of integer;

 i, s: integer;

begin

 // рандомный массив из 10 чисел, от -15 до 15:

 for i := 1 to 10 do arr[i] := random(-15, 15);

 writeln(arr);

 

 // сумма элементов массива

 writeln(arr.sum);

end.

Answer 2

Конечно, вот пример кода на Pascal для нахождения суммы всех элементов массива:

program SumOfArrayElements;

const
  arraySize = 5; // Задайте размер массива по вашему усмотрению

var
  myArray: array[1..arraySize] of Integer; // Массив целых чисел
  sum: Integer; // Переменная для хранения суммы элементов массива
  i: Integer; // Переменная для использования в цикле

begin
  // Заполнение массива произвольными значениями (можете изменить по своему усмотрению)
  for i := 1 to arraySize do
  begin
    Write('Введите элемент массива ', i, ': ');
    ReadLn(myArray[i]);
  end;

// Инициализация суммы
  sum := 0;

// Цикл для нахождения суммы элементов массива
  for i := 1 to arraySize do
  begin
    sum := sum + myArray[i];
  end;

// Вывод результата
  WriteLn('Сумма элементов массива: ', sum);

ReadLn;
end.

Программа начинается с определения константы `arraySize`, которая указывает размер массива. Затем объявляется массив `myArray` и переменные `sum` и `i`. В цикле `for` пользователь вводит элементы массива, после чего программа вычисляет и выводит их сумму.

Вы можете изменить размер массива (`arraySize`) и значения элементов в соответствии с вашими требованиями.