Program Om1;
Uses crt;
Var a :array[1..100] of real;\\массив
i,n,j :integer;\\переменные 
x :array [1..100] of real;\\ещё массив
Begin
clrscr;
write('n=');readln(n);\\Вводим чему равняется n
for i:=1 to n do \\в цикле проходимся от 1 до числа n которую ввели с клавиатуры.
readln(a[i]);\\ записываем в массив
j:=1;
for i:=1 to n do
if a[i]=0 then \\так же проходимся по циклу от 1 до n и если a[i]=0 (т.е любое исло из массива) то
begin
x[j]:=i;\\присваевает местонахождение a[i]=0
j:=j+1\\счетчик
end;
for i:=1 to j-1 do
write(x[i],' ');
End.
Прога считает сколько в массиве чисел равных введеной с клавы числу.