Question

Написать программу, которая выдаст на экран номер
элемента массива равный -25, если такого не окажется, то
вывести на экран фразу «такого числа нет».
(Это необходимо сделать в Pascal)

Answer 1

PascalABC.NET версия 3.7.1

##

var n := ReadInteger('n=');

var a := ReadArrInteger('Вводите:', n);

var i := a.IndexOf(-25);

if i < 0 then

 Print('такого числа нет')

else

 Print(i + 1)