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.