Question

Найти номер и значение первого положительного элемента массива.

Answer 1

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

begin

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

 var a := ArrRandom(n, -99, 99);

 a.Println;

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

 if i > -1 then

   Println('Элемент с номером', i + 1, 'имеет значение', a[i])

 else

   Println('Нет положительных элементов')

end.