Увеличить на 4 все элементы в первой половине массива

A (считать, что в массиве чётное число элементов). Размер массива и значения

элементов массива - произвольные.

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.

var mass: array [ 1 ... 20 ] of integer;

i, n:integer;

begin

writeln ('Изначальный массив: ') ;

randomize;

for i: = 1 to 20 do begin

mass[i]:=random (30) ;

write (mass[i],' ') ;

end;

writeln ('Новый массив: ') ;

for i: = 1 to 20 do begin

if i< = 10 then

mass[i]: = mass[i]+4;

write (mass[i],' ') ;

end;

end.