= Ученье - свет! =

Саша, ошибка - в объявлении массива.
Var mas: array [1..m] of integer;
Максимальный индекс массива должен быть определён заранее. Т.е. либо указывается числовое значение, например,
Var mas: array [1..20] of integer;
либо задаётся константой перед описанием массива:
Const m=20;
Var mas: array [1..m] of integer;

Успехов в освоении программирования!

Вера Петровна, у меня программа не работает, где ошибка не пойму, помогите!
Дан одномерный массив. Найти количество элементов массива, равных заданному k.
Program pr_3;
Var mas: array [1..m] of integer; I, k, n, kol: integer;
Begin
Write(‘введите размерность массива n=’); read(n);
Writeln(‘введите значение к=’); read (k);
kol:=0;
Randomize;
For i:=1 to n do begin
Mas[i]:=random(i);
Write (mas[i], ‘ ‘);
If mas[i]=k then kol:=kol+1;
End; Writeln (‘количество элементов, равных ‘, k,’ равно ‘, kol);
End.