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

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

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

program NegativeElementsSum;
var
R: array[1..20] of integer;
i, firstNegative, lastNegative, sum: integer;
begin
// инициализируем массив
for i := 1 to 20 do
R[i] := random(100) - 50; // генерируем случайные числа от -50 до 49
// находим номер первого отрицательного элемента
firstNegative := 0;
for i := 1 to 20 do
begin
if R[i] < 0 then
begin
firstNegative := i;
break;
end;
end;
// находим номер последнего отрицательного элемента
lastNegative := 0;
for i := 20 downto 1 do
begin
if R[i] < 0 then
begin
lastNegative := i;
break;
end;
end;
// вычисляем сумму отрицательных элементов
sum := 0;
for i := firstNegative to lastNegative do
sum := sum + R[i];
// выводим результаты
writeln('Исходный массив R:');
for i := 1 to 20 do
write(R[i], ' ');
writeln;
writeln('Номер первого отрицательного элемента: ', firstNegative);
writeln('Номер последнего отрицательного элемента: ', lastNegative);
writeln('Сумма отрицательных элементов: ', sum);
end.

Эта программа создает массив из 20 случайных чисел от -50 до 49, находит номер первого и последнего отрицательных элементов, а затем вычисляет их сумму.