Ответ:

Program primer;

Uses crt;

var i,n: integer;

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

randomize;

write('Pazmer massiva  = ');  

readln(n);      

for i:=1 to n do      

a[i]:= random(100)-50;

for i:=1 to n do      

write(a[i]:5);

writeln;      

writeln;    

for i:=1 to (n div 2) do      

write((a[i]+4):5);            

for i:=((n div 2)+1) to n do      

write(a[i]:5);      

readln;

end.