Ну так во первых обяъвление процедуры должно быть
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.
Держи ! Пользуйся на здоровье и будь внимательнее.
1.
Специально организованная структура данных, распознаваемая компьютером как единое целое.
2
Имя файла состоит из двух частей, разделённых точкой: собственно имени файла и расширения. Собственно имя файлу даёт пользователь.
3
Компью́терная програ́мма — последовательность инструкций, предназначенная для исполнения устройством управления вычислительной машины.
4
Докуме́нт — это зафиксированная на материальном носителе информация в виде текста, звукозаписи или изображения с реквизитами, позволяющими её идентифицировать.
5
Полным, или абсолютным, называется имя файла, содержащее все каталоги до корня файловой системы. Относительные имена файлов не содержат полного пути и обычно привязываются к текущему каталогу.
6
DOC / DOCX XLS / XLSX PNG : HTM / HTML : PDF EXE :
7
DOC , .XLS , .PPT DOCM , .DOTM , .XLSM , .XLTM , .XLAM , .PPTM , .POTM , .PPAM , .PPSM , .SLDM. Новые расширения файлов, представленные в Office 2007
8
RAW.
JPEG (он же JPG).
TIFF. ...
PSD. ...
BMP. ...
GIF. ...
PNG. ...
JPEG 2000 (или jp2).
9
Формат файла Расширение
Файл Windows Video (для некоторых файлов в формате AVI могут потребоваться дополнительные кодеки) AVI
Видеофайл MP4 * MP4, M4V, MOV
Файлы Movie MPG или MPEG
Файлы Windows Media Video WMV
б) 10100
в) 11100