const n=10;
type TMas=array[1..n] of integer;
var mas1:TMas;
procedure InputMas1(var mas: TMas);
var i: integer;
begin
for i:=1 to 10 do
mas[i]:=random(n);
Write(mas[i]:3);
end;
InputMas1(mas1);
end.
const n=10;
type TMas=array[1..n] of integer;
var mas1:TMas;
procedure InputMas1(var mas: TMas);
var i: integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(n);
Write(mas[i]:3);
end;
end;
begin
InputMas1(mas1);
end.