Question

Срочно!!!!!!!!!!!!!!!ABC pascal!!!!!!!!!!!!!Дан одномерный массив В(N). Добавить в конец массива элемент, равный сумме отрицательных элементов, стоящих на четных местах.

Answer 1

var

n,i: integer;

b: array[1..101] of integer;

begin

readln(n);

for i:=1 to n do

begin

 read(b[i]);

 if ((i mod 2 = 0) and (b[i]<0)) then

 inc(b[101], b[i]);

end;

write(b[101]);

end.

Answer 2

Для решения этой задачи на языке программирования Pascal, вам потребуется выполнить следующие шаги:

1. Объявить массив B и определить его размерность N.
2. Заполнить массив B элементами.
3. Вычислить сумму отрицательных элементов, стоящих на четных местах.
4. Добавить полученную сумму в конец массива B.
5. Увеличить размерность массива N на 1.
6. Вывести массив B с новым элементом в конце.

Вот пример реализации на Pascal:

pascalCopy code
program AddNegativeSumToEnd;

const
  MaxN = 100; // Максимальный размер массива

var
  B: array[1..MaxN] of integer;
  N, i, SumNeg: integer;

begin
  // Ввод размерности массива
  write('Введите размерность массива N: ');
  readln(N);

  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to N do
  begin
    write('B[', i, '] = ');
    readln(B[i]);
  end;

  // Вычисление суммы отрицательных элементов на четных местах
  SumNeg := 0;
  for i := 2 to N step 2 do
  begin
    if B[i] < 0 then
      SumNeg := SumNeg + B[i];
  end;

  // Добавление суммы в конец массива
  N := N + 1;
  B[N] := SumNeg;

  // Вывод массива с новым элементом
  writeln('Массив B с добавленным элементом:');
  for i := 1 to N do
    write(B[i], ' ');

  readln;
end.

Этот код сначала запрашивает размерность массива и его элементы, затем вычисляет сумму отрицательных элементов, стоящих на четных позициях, и добавляет эту сумму в конец массива B. В конце программы выводится измененный массив.