Увеличить на 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.