Question

Где ошибка??

const n=10;

type TMas=array[1..n] of integer;

var mas1:TMas;

procedure ImputMas1(var masTMas: integer);

var i: integer;

begin for i:=1 to 10 do

begin

mas1[i]:=random(n);

Write(mas1[i]:3);

end;

end.

Answer 1

Вот так правильно 

Program Massiv; 

const n=10;
type TMas=array[1..n] of integer;
var mas1:TMas;

procedure InputMas1(var mas1:TMas);

var i: integer;
begin

for i:=1 to 10 do

begin

mas1[i]:=random(n);
Write(mas1[i]:3);
end;

begin

InputMas1(mas1);
readkey;

end.