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

Предыдущий
вопрос Следующий
вопрос

это можно реализовать следующим образом:

program NegativeElementsSum;
var
R: array[1..20] of Integer;
i, firstNegative, lastNegative, sum: Integer;
begin
firstNegative := 0;
lastNegative := 0;
sum := 0;
// заполнение массива R
for i := 1 to 20 do
begin
// ввод элементов массива R с клавиатуры
Write('Введите элемент R', i, ': ');
Readln(R[i]);
// определение номера первого отрицательного элемента
if (R[i] < 0) and (firstNegative = 0) then
firstNegative := i;
// определение номера последнего отрицательного элемента
if R[i] < 0 then
lastNegative := i;
end;
// вычисление суммы отрицательных элементов
for i := firstNegative to lastNegative do
begin
if R[i] < 0 then
sum := sum + R[i];
end;
// вывод результатов
if (firstNegative <> 0) and (lastNegative <> 0) then
begin
Writeln('Номер первого отрицательного элемента: ', firstNegative);
Writeln('Номер последнего отрицательного элемента: ', lastNegative);
Writeln('Сумма отрицательных элементов: ', sum);
end
else
Writeln('В массиве нет отрицательных элементов.');
end.

Этот код сначала заполняет массив R элементами, затем определяет номер первого и последнего отрицательных элементов, вычисляет их сумму и выводит результаты.