Где ошибка?? 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.
Где ошибка?? 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.
Гость
Ответ(ы) на вопрос:
ГостьВот так правильно 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.
Не нашли ответ?
Похожие вопросы