Да массив целых чисел найти сумму элементов первой и второй половины массива вывести сумму исходной массив и результаты. Paskal

Чтобы найти сумму элементов первой и второй половины массива целых чисел и вывести результирующую сумму, мы можем выполнить следующие шаги на языке Pascal.

Вот пример кода, который демонстрирует, как это сделать:

program SumArrayHalves;

var
  nums: array[1..100] of Integer; // Массив из 100 целых чисел
  n, i, sumFirstHalf, sumSecondHalf, totalSum: Integer;

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

  // Ввод элементов массива
  WriteLn('Введите элементы массива:');
  for i := 1 to n do
  begin
    Read(nums[i]);
  end;

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

  // Вычисление сумм первой и второй половин массива
  for i := 1 to n do
  begin
    if i <= n div 2 then
      sumFirstHalf := sumFirstHalf + nums[i]
    else
      sumSecondHalf := sumSecondHalf + nums[i];
  end;

  // Общая сумма массива
  totalSum := sumFirstHalf + sumSecondHalf;

  // Вывод результатов
  WriteLn('Сумма первой половины массива: ', sumFirstHalf);
  WriteLn('Сумма второй половины массива: ', sumSecondHalf);
  WriteLn('Сумма всего массива: ', totalSum);
end.

Пояснения к коду:

1. Объявление переменных: Мы объявляем массив nums для хранения целых чисел, переменную n для количества элементов, и переменные для сумм.

2. Ввод данных: Мы запрашиваем у пользователя количество элементов массива, затем вводим сами элементы.

3. Цикл для сумм: Используем цикл for для обхода массива. Если индекс элемента меньше или равен половине размера массива (n div 2), мы добавляем этот элемент к sumFirstHalf. В противном случае добавляем к sumSecondHalf.

4. Общая сумма: Суммируем полученные значения для вывода общей суммы.

5. Вывод результатов: Печатаем полученные суммы на экран.

Таким образом, программа позволяет находить суммы первой и второй половин массива и выводит их вместе с общей суммой. Если у вас возникнут дополнительные вопросы или понадобится помощь с другими задачами, не стесняйтесь спрашивать!