удалить из массива все отрицательные элементы и вставить сумму оставшихся элементов...

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;</p>

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

  end;

 

End.