Question

Пожалуйста!!! ПОМОГИТЕ С ЗАДАНИЕМ НА PASCAL!!! НЕ ПОЛУЧАЕТСЯ СДЕЛАТЬ!!! ОЧЕНЬ НУЖНО

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('Укажи длину массива:');

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

 var j := ReadInteger('J =');

 var i := a.FindIndex(p -> p <= j);

 if i > -1 then

   if a[i] = j then

     Println('Такое число есть')

   else

     Println('Чисел, не меньших j:', i)

 else

   Println('Чисел, не меньших j:', n);

 Println('Количество неотрицательных чисел в массиве:',

   a.Count(p -> p >= 0))

end.