Ну так во первых обяъвление процедуры должно быть
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.
Держи ! Пользуйся на здоровье и будь внимательнее.
Windows Movie Maker – дыбыс (аудио) және бейне (видео) материалдары арқылы фильм құруға арналған бағдарлама.
Windows Movie Maker бағдарламасында бейнекамераның, веб-камераның немесе басқа да бейне құрылғылардың көмегімен компьютерде аудио және бейне жазбалары арқылы фильм құруға болады.
Өзімізге қажетті фильм құру үшін дайын суреттерді, аудио және бейне материалдарды импорттау арқылы қолдануға болады. Қажетті аудио және бейне материалдарын таңдап алғаннан кейін белгілі бір тақырыпқа негізделген, бейнеауысым және эффектілерді қолданып дайын фильм құра аламыз.
Құрылған фильмді компьютерге немесе басқа да тасымалдау құрылғыларына сақтап, басқа қолданушыларға көрсетуге, электронды поштамен жіберуге және де Интернетке қосуға, егер компьютерде сандық бейнекамера қосылған болса, онда фильмді таспаға жазу арқылы оны телевизорда немесе сандық бейнекамерадан көруге болады.
Windows Movie Maker интерфейсінде «жинақ», «жоба», «фильм», «кадр», «клип», «монтаж» т.б. терминдерді кездестіреміз.
