Question

удалить из массива все отрицательные элементы и вставить сумму оставшихся элементов (программа в Паскале)

Answer 1

var a:array[1..100] of integer;

i,s:integer;

Begin

  randomize;
  n:=20;
  for i:= 1 to n do begin
    a[i]:=random(n*10)- 10*n div 2 ;
    write(a[i]:4);
    if i mod 10=0 then writeln;

 

    if a[i]>=0 then s:= s+a[i];
  end;

 

  for i:= 1 to n do begin

    if a[i]<0 then a[i]:=s;

    write(a[i]:4);
    if i mod 10=0 then writeln;

  end;

 

End.

Answer 2

Вот пример программы на языке Паскаль, которая удаляет все отрицательные элементы из массива и заменяет их суммой оставшихся элементов:

program RemoveNegativesAndInsertSum;
const
  MAX_SIZE = 100;
var
  arr: array[1..MAX_SIZE] of Integer;
  n, i, sum: Integer;
begin
  // Ввод размера массива
  writeln('Введите размер массива (не более ', MAX_SIZE, '): ');
  readln(n);
  
  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to n do
  begin
    write('arr[', i, '] = ');
    readln(arr[i]);
  end;
  
  // Удаление отрицательных элементов
  i := 1;
  while i <= n do
  begin
    if arr[i] < 0 then
    begin
      // Сдвиг оставшихся элементов влево
      for j := i to n - 1 do
        arr[j] := arr[j + 1];
      n := n - 1; // Уменьшение размера массива
    end
    else
      i := i + 1; // Переход к следующему элементу
  end;
  
  // Вычисление суммы оставшихся элементов
  sum := 0;
  for i := 1 to n do
    sum := sum + arr[i];
  
  // Вставка суммы в конец массива
  arr[n + 1] := sum;
  n := n + 1; // Увеличение размера массива
  
  // Вывод результата
  writeln('Итоговый массив:');
  for i := 1 to n do
    writeln('arr[', i, '] = ', arr[i]);
end.

Программа сначала запрашивает у пользователя размер массива и его элементы. Затем она проходит по всем элементам массива и удаляет отрицательные элементы путем сдвига оставшихся элементов влево и уменьшения размера массива. Далее программа вычисляет сумму оставшихся элементов и вставляет ее в конец массива, увеличивая при этом его размер. Наконец, программа выводит итоговый массив.