Где ошибка?

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.

Question

Информатика

Макс

25 июня, 01:21

Где ошибка?

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.

+4

Ответы (1)

Знаете ответ на вопрос?

Корнелий · 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.

Где ошибка?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 dobeginmas1[i]:=random (n) ;Write (mas1[i]:3) ;end;end.

Где ошибка?

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.