а) Заполните массив степенями числа 2, начиная с конца, так чтоб

А) Заполните массив степенями числа 2, начиная с конца, так чтоб заключительный эле-мент массива был равен 1, а каждый предшествующий был в 2 раза больше последующего. б) С клавиатуры вводится целое число X. Заполните массив, состоящий из нечётного числа частей, целыми числами, так чтоб средний элемент массива был равен X, слева от него элементы стояли по возрастанию, а справа по убыванию. Примыкающие элементы отличаются на единицу. К примеру, при X = 3 массив из 5 частей заполняется так: 1 2 3 2 1.

Задать свой вопрос
1 ответ
На паскале Pascal.ABC
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт