Var
A : array [1..10] of integer ;
I : integer ; {переменная I вводится как индекс массива}
Begin
For i:=1 to 10 do
a[i]:=1; { ввод i- го элемента }
end.
__________________
В любом из нас спит гений. И с каждым днем все крепче.
Переходим на протокол нового поколения jabber