Ну так во первых обяъвление процедуры должно быть
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.
Держи ! Пользуйся на здоровье и будь внимательнее.
var kind = prompt("Укажите вводимую величину:1)Метр2)Сантиметр3)Киллометр");
if (kind === "1") {
var input = prompt("Укажите кол-во:");
result = ((100 * input) / 2.54).toFixed(4);
alert(input + " m =" + result + " in"); }
else {
if (kind === "2") { var input = prompt("Укажите кол-во:"); result = (input / 2.54).toFixed(4); alert(input + " cm = " + result + " in"); } else { if (kind === "3") { var input = prompt("Укажите кол-во:"); result = ((1000 * input) / 2.54).toFixed(4); alert(input + " km = " + result + "in"); } else { alert("Не верно выбрана величина!"); }
} }