Question

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

Answer 1

const N=20;

var R:array[1..N] of integer;

i,a,b,c,s:integer;

begin

a:=0;

b:=0;

for i:=1 to N do  

 begin

  R[i]:=random(N)-random(N);

  write(R[i]:3,'[',i,']');

 end;

writeln;

for i:=1 to N do

 begin

  if a<1 then

   begin

    if R[i]<0 then  

     begin

     b:=i;

     a:=a+1;

     end;

   end;

  end;

a:=0;

c:=0;

 for i:=N downto 1 do

  begin

   if a<1 then

    begin

     if R[i]<0 then

      begin

      c:=i;

      a:=a+1;

      end;

    end;

   end;

s:=0;

 for i:=1 to N do  

   s:=s+R[i];

writeln('Номер первого отрицательного элемента - ',b);

writeln('Номер последнего отрицательного элемента - ',c);

writeln('Сумма элементов в массиве - ',s);

end.

Answer 2

Для решения этой задачи в Pascal (паскаль) можно использовать следующий код:

pascalCopy code
program FindNegativeElements;

const
  N = 20;

var
  R: array[1..N] of Integer;
  i, firstNegative, lastNegative, sumNegatives: Integer;

begin
  { Здесь можно заполнить массив R1...R20 любыми значениями }

  { Пример заполнения массива случайными числами от -50 до 50 }
  Randomize;
  for i := 1 to N do
    R[i] := Random(101) - 50;

  { Выводим массив на экран (для наглядности) }
  writeln('Массив R1...R20:');
  for i := 1 to N do
    write(R[i], ' ');

  { Ищем первый и последний отрицательные элементы }
  firstNegative := 0;
  lastNegative := 0;
  for i := 1 to N do
  begin
    if (R[i] < 0) and (firstNegative = 0) then
      firstNegative := i;

    if R[i] < 0 then
      lastNegative := i;
  end;

  { Считаем сумму отрицательных элементов }
  sumNegatives := 0;
  for i := firstNegative to lastNegative do
  begin
    if R[i] < 0 then
      sumNegatives := sumNegatives + R[i];
  end;

  writeln;
  writeln('Первый отрицательный элемент: ', R[firstNegative]);
  writeln('Последний отрицательный элемент: ', R[lastNegative]);
  writeln('Сумма отрицательных элементов: ', sumNegatives);

end.

Приведенный код определяет номер первого и последнего отрицательных элементов массива R1...R20 и вычисляет сумму этих элементов. Значения массива заполняются случайными числами от -50 до 50 для примера. Вы можете изменить заполнение массива R на свое усмотрение.