Увеличить ** 4 все элементы в первой половине массиваA (считать, что в массиве чётное...

Question

Увеличить на 4 все элементы в первой половине массива
A (считать, что в массиве чётное число элементов). Размер массива и значения
элементов массива – произвольные.

Answer 1

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.

Answer 2

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<=</span>10 then

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

write(mass[i],' ');

end;

end.