program fyr;
uses crt;
const N=100; {размер массива}
type massiv=array[1..N] of real; {объявление массива}
 
var A: massiv; {инициализация массива}
    i,nn:integer; {переменные для обслуживания массива}
    summ:real;   {переменная суммы }
 
begin
write('N= ');  readln(nn); {считываем размер массива}
 
writeln('Vvedite elementy massiva:');
for i:=1 to nn do begin
write('A[',i,']= '); readln(A[i]); end;  {считываем сам массив}
clrscr;
writeln('Vot vvedenye vami massiv: ');
for i:=1 to nn do write(A[i]:0:2,', '); {выводим массив }
writeln;writeln;
 
summ:=0;
for i:=1 to nn do summ:=summ+A[i]; {вычисляем сумму массива}
 
for i:=1 to nn do
if A[i]<0 then A[i]:=summ else A[i]:=(summ-A[i])/2; {по условию заполняем массив}
writeln('Vot preobrazovannyi massiv: ');
for i:=1 to nn do write(A[i]:0:2,', '); {выводим преобразованный массив}
 
 
readln;
end.