Поделитесь своими знаниями, ответьте на вопрос:
А) заполните массив степенями числа 2, начиная с конца, так чтобы последний эле-мент массива был равен 1, а каждый предыдущий был в 2 раза больше следующего. б) с клавиатуры вводится целое число x. заполните массив, состоящий из нечётного числа элементов, целыми числами, так чтобы средний элемент массива был равен x, слева от него элементы стояли по возрастанию, а справа – по убыванию. соседние элементы отличаются на единицу. например, при x = 3 массив из 5 элементов заполняется так: 1 2 3 2 1.
1.
var
a:array of integer;
i:integer;
begin
readln(n);//ввод длины массива
setlendth(a,n);
For i=0 to n-1 do begin
a[i]:=Exp(i*Ln(2));
writeln(a[i]);
end;
end.
2.
var
a:array of integer;
i:integer;
begin
readln(x);
setlendth(a,x*2-1);
For i=0 to x do
a[i]:=i;
For i=x to x*2-1 do
a[i]:=x*2-1-x;
For i=1 to x*2-1 do
writeln(a[i]);
end.