Question

Помогите написать программу НА PASCAL, СРОЧНО!!! Пожалуйста!! Не понимаю, помогите

Answer 1

Ответ:

Объяснение:

PascalABC.NET

begin

 var arr := ArrRandom(100, -99, 99).ToList; //Random array

 var j := ReadInteger();

 if arr.Find(x -> x = j) <> 0 then Println('Finded!')

   

 else

   arr.Where(x -> x >= j).Count.Println;

   

 arr.Where(x-> x < 0).Count.Println;

 

end.

P.S не понятно, что должна выводить программа, если нашла это самое число J, по этому просто пишет "Finded!"