Ну так во первых обяъвление процедуры должно быть
procedure InputMas1(var mas1:Tmas );
во вторых ты забыл end; т.е
begin
for i:=1 to 10 do
begin
mas1[i]:=random(n);
Write(mas1[i]:3);
end;
end; {забытый end}
в третьих ты не написал основную прграмму т.е забыл begin и не вызвал процедуру
InputMas1
begin
clrscr;
InputMas1(mas1);
readkey;
end.
Итого прога должна выглядеть примерно так
program Massiv
Uses Crt;
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;
end;
{Основная прога}
begin
clrscr;
InputMas1(mas1);
readkey;
end.
Держи ! Пользуйся на здоровье и будь внимательнее.
(см. объяснение)
Объяснение:
program task;
var i: integer;
const N=5;
procedure writeOut(i: integer);
begin
if(i<N) then write(', ')
else writeln('.');
end;
begin
if(N<1) then begin writeln('N>0 и целое!'); exit; end;
writeln('ЦИКЛ FOR:');
for i:= 1 to N
do begin
write(i); writeOut(i);
end;
writeln;
writeln('ЦИКЛ WHILE:');
i:= 1;
while(i<N+1)
do begin
write(i); writeOut(i);
i:= i+1;
end;
writeln;
writeln('ЦИКЛ REPEAT:');
i:= 1;
repeat
write(i); writeOut(i);
i:= i+1;
until i=N+1;
end.
