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

  • Program primer;
    Uses crt;

    var i,n: integer;
    a:array1..100 of integer;

    begin clrscr;
    randomize;
    write(Pazmer massiva = );
    readln(n);

    for i:=1 to n do
    ai:= random(100)-50;

    for i:=1 to n do
    write(ai:5);

    writeln;
    writeln;

    for i:=1 to (n div 2) do
    write((ai+4):5);

    for i:=((n div 2)+1) to n do
    write(ai:5);
    readln;
    end.