Question

Дан массив R1...R20. О пределить номер первого и последнего отрицательных элементов . Вычислить сумму этих элементов В Паскале

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var R := ArrRandom(20, -50, 50);

 R.Println;

 var i := R.IndexesOf(t -> t < 0);

 Println(i.First + 1, i.Last + 1);

 Println('Сумма равна', R[i.First] + R[i.Last])

end.

Пример

-9 41 -47 -25 22 -35 44 -2 -10 17 -17 -17 5 20 47 -43 3 -45 1 33

1 18

Сумма равна -54

Answer 2

Для определения номера первого и последнего отрицательных элементов в массиве и вычисления суммы этих элементов в Pascal, нужно выполнить следующие шаги:

1. Определить номера первого и последнего отрицательных элементов массива R1...R20.
2. Вычислить сумму отрицательных элементов.

Предположим, что у нас есть массив R1...R20. Ниже приведен псевдокод для выполнения указанных шагов:

pascalCopy code
// Шаг 1: Найти номер первого и последнего отрицательных элементов массива
var
  R: array[1..20] of Integer;
  firstNegativeIndex, lastNegativeIndex: Integer;
  i: Integer;

// Инициализация массива R
// Здесь нужно вставить значения элементов массива R1...R20

firstNegativeIndex := 0;
lastNegativeIndex := 0;

for i := 1 to 20 do
begin
  if R[i] < 0 then
  begin
    if firstNegativeIndex = 0 then
      firstNegativeIndex := i;

    lastNegativeIndex := i;
  end;
end;

// Шаг 2: Вычислить сумму отрицательных элементов
var
  sumOfNegatives: Integer;

sumOfNegatives := 0;
for i := firstNegativeIndex to lastNegativeIndex do
begin
  if R[i] < 0 then
    sumOfNegatives := sumOfNegatives + R[i];
end;

// Вывести результаты
writeln('Номер первого отрицательного элемента: ', firstNegativeIndex);
writeln('Номер последнего отрицательного элемента: ', lastNegativeIndex);
writeln('Сумма отрицательных элементов: ', sumOfNegatives);

Примечание: Пожалуйста, учтите, что вышеуказанный код - псевдокод, а не готовый код на языке Pascal. Вы должны адаптировать его к синтаксису и правилам языка Pascal, который вы используете. Также убедитесь, что значения массива R1...R20 уже заполнены перед выполнением данного кода.