by

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

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

  • var mass: array 1..20 of integer;

    i,n:integer;

    begin

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

    randomize;

    for i:=1 to 20 do begin

    massi:=random(30);

    write(massi, );

    end;

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

    for i:=1 to 20 do begin

    if i<=10 then

    massi:= massi+4;

    write(massi, );

    end;

    end.