Задача №12
Найти номер элемента с заданным значением (все элементы разные).
программу по паскалю

var a: array of integer;n,value, minind: integer; begin   write('Введите n: ');   readln(n);   a := new integer[n];   write('Введите числа: ');  for var i:=0 to a.Length-1 do    read(a[i] );     write('Введите заданное значение: ');  read(value);  write('Номер элемента с заданным значением: ');  a[0]:=value;  minind := 1;  for var i:=0 to a.Length-1 do    if a[i]=value then     begin        minind := i+1;    end;  writeln(minind); end.