Question

С клавиатуры вводится число Х. Заполните массив 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.

Answer 1

В строке a[i]:=a[ ];
нужно написать:
a[i]:=2*a[i-1];