С клавиатуры вводится число Х. Заполните массив 10 элементами, в котором первый элемент равен числу Х, а каждый следующий в 2 раза больше предыдущего. const n=10; var a:array [1 ... n] of integer; i, x:integer; begin readln (x); a[1]:=x; for i:=2 to n do a[i]:=a[ ] *; for i:=1 to n do write (a[i]:6); end.

program zz1;

const n = 10; / / задаем количество элементов в массиве

var i, x:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

write (' введите заданное число Х ');

read (x);

m[1]:=x; / / присваиваем значение первому элементу

for i:=2 to n do / / получаем n чисел согласно условию и записываем их в массив

m[i]:=m[i - 1] * 2;

writeln (' Полученный массив: '); / / переходим на новую строку для вывода ответа

for i:=1 to n do / / выводим полученный массив на экран

write (m[i],' ');

end.