Задача №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.