Заполните массив из 10 элементов, в котором каждый элемент будет равен введенному числу с...

Question

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

Answer 1

Const n=10;
var a:array [1..n] of integer;
i,x:integer;
begin 
readln(x);
for i:=1 to n do
a[i]:=x;
for i:=1 to n do
write (a[i]:6);
end.