===== 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.
