Заполните массив из 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.
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.