Преобразовать массив А,прибавив к каждому положительному элементу максимальный отрицательный элемент.

1

Ответы и объяснения

Лучший Ответ!
2011-12-13T18:45:43+04:00

var

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

   i,n,min:integer;

begin

   readln(n);

   for i:=1 to n do

      readln(a[i]);

   min:=-32000;

   for i:=1 to n do

      if (min<a[i]) and (a[i]<0) then min:=a[i];

   for i:=1 to n do

   begin

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

      writeln(a[i]);

   end;

end.