Question

В одномерном массиве, состоящем из n элементов, вычислить сумму элементов массива, стоящих между первым и последним нулевыми элементами, паскаль

Answer 1

Ответ:

num[0], num[-1] = num[n-1], num[0]

Answer 2

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

pascalCopy code
program SumBetweenZeros;
var
  arr: array of Integer;
  n, i, firstZero, lastZero, sum: Integer;
begin
  // Инициализация массива
  n := 10; // Задайте размер массива здесь
  SetLength(arr, n);

  // Ввод элементов массива
  for i := 0 to n - 1 do
  begin
    Write('Введите arr[', i, ']: ');
    ReadLn(arr[i]);
  end;

  // Поиск первого и последнего нулевого элемента
  firstZero := -1;
  lastZero := -1;
  for i := 0 to n - 1 do
  begin
    if (arr[i] = 0) and (firstZero = -1) then
      firstZero := i
    else if arr[i] = 0 then
      lastZero := i;
  end;

  // Вычисление суммы между первым и последним нулевым элементом
  sum := 0;
  if (firstZero <> -1) and (lastZero <> -1) then
  begin
    for i := firstZero + 1 to lastZero - 1 do
      sum := sum + arr[i];
  end;

  // Вывод результата
  if (firstZero = -1) or (lastZero = -1) then
    WriteLn('В массиве отсутствует нулевой элемент.')
  else
    WriteLn('Сумма элементов между первым и последним нулевыми элементами: ', sum);
end.

Обратите внимание, что в этом примере массив заполняется пользователем, и размер массива установлен на 10. Вы можете изменить размер массива, как вам нужно.