Срочно помогите решить задачу на одномерный массив!
В чем конкретно возникают сложности?
begin
var a := ReadArrInteger(10);
var j := a.FindIndex(x -> x = 3);
Print(j > -1 ? (j + 1).ToString : 'No')
end.
PascalABC.NET, выбирайте что вам больше нравится