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.

Using system; using system.collections.generic; using system.linq; using system.text; using system.threading.tasks; namespace zamenaznakavmassive { class program { static void main(string[] args) { int[] mas = new int[10]; random r = new random(); console.writeline("исходный массив: "); for (int i = 0; i< mas.length; i++) { mas[i] = r.next(1, 10); console.write(mas[i] + " "); } console.writeline(); console.writeline("введите значение"); int x = int.parse(console.; console.writeline("измененный массив: "); for (int i =0; i < mas.length; i++) { if (mas[i] == x) mas[i] = mas[i] * (-1); console.write(mas[i] + " "); } console.readkey(); { } } } }

Var x,y,z: integer;           begin   write ('введите x: ');   readln(x);   write ('введите y: ');   readln(y);   write ('введите z: ');   readln(z);   if (x> 0)and(y> 0)and(z> 0)then       begin    x: =x+2; y: =y+2; z: =z+2;     end       else      begin    x: =abs(x); y: =abs(y); z: =abs(z);     end ;     writeln('x= ',x);     writeln('y= ',y);     writeln('z= ',z);     end.