1) Сформировать массив из 10 элементов, при значении изменяющемся от 1 до 10. 2) Опишите массив, в котором 10 элементов

var

//описание массива

a:array [1..10] of integer;

//-------------------

i:integer;

begin

 for i:=1 to 10 do

   begin

     a[i]:=random(10)+1;

     write(a[i]:4);

   end;

end.