1.     Возвести в квадрат все элементы массива A. Размер
массива и значения элементов массива – произвольные.


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

3.     Заполните массив степенями числа 2, так чтобы
последний элемент массива был равен 1, а каждый предыдущий был в 2 раза больше
следующего. Например: 32 16 8 4 2 1


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

var   a: array of integer;  i, n: integer;begin  randomize;  n := Random(10) + 1;  SetLength(a, n);  writeln('Исходный массив');  for i := 0 to n-1 do begin    a[i] := Random(10);    write(a[i]:5, ' ');  end; writeln;    writeln('Возвести в квадрат');  for i := 0 to n-1 do begin    a[i] := sqr(a[i]);    write (a[i]:5, ' ');  end; writeln;    writeln('Заполнить степенями 2');  a[n-1] := 1;  for i := n-2 downto 0 do    a[i] := a[i+1] shl 1;      for i := 0 to n-1 do write (a[i]:5, ' ');  writeln;    writeln ('умножить на 3 во второй половине');  for i := n shr 1 to n-1 do    a[i] := (a[i] shl 1) + a[i];      for i := 0 to n-1 do write (a[i]:5, ' ');  writeln;end.