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

Question

Информатика

Ванютя

4 июля, 21:15

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

+2

Ответы (1)

Знаете ответ?

Гурьян · Answer 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.