uses crt;
const m=10;
type mas=array[1..m] of integer;
var massiv: mas;
procedure InsertMas(var mass: mas; n: integer);
var i: integer;
begin
randomize;
for i:= 1 to n do mass[i]:= random(10);
end;
procedure PrintMas(mass: mas; n: integer);
var i:integer;
begin
for i:=1 to n do write (mass[i]:5);
end;
begin
clrscr;
InsertMas(massiv,m);
PrintMas(massiv,m);
end.