1. возвести в квадрат все элементы массива a. размер массива и значения элементов массива – произвольные. 2. увеличить на 4 все элементы в первой половине массива a (считать, что в массиве чётное число элементов). размер массива и значения элементов массива – произвольные. 3. заполните массив степенями числа 2, так чтобы последний элемент массива был равен 1, а каждый предыдущий был в 2 раза больше следующего. например: 32 16 8 4 2 1 4. умножить на 3 все элементы во второй половине массива a (считать, что в массиве чётное число элементов). размер массива и значения элементов массива – произвольные.
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.