первый положительный элемент в массиве Опции

[18192123]

мне нужно найти количество чисел после первого положительного элемента в одномерном массиве. но проблема в том, что вначале мне нужно найти этот первый положительный и его индекс,
но получается ерунда (всегда 0), я знаю почему, но других вариантов нет, ведь если искать второй элемент, то все работает.

const n=10;
type vect=array[1..n] of integer;
var a:vect; i,k:integer;
begin
writeln ('vvod massiva');
i:=1;
k:=0;
while (i<=n)and(k<1) do begin
i:=i+1;
if a[i]>0 then k:=k+1;
end;

помогите пожалуйста!

[klem4]

writeln ('vvod massiva');

Подсказка есть, а массив то ты не вводишь ...

+

i := i + 1

поставь после

if a[i]>0 then k:=k+1;

и в самом конце END.

[18192123]

а как мне вывести сам первый положительный элемент и его индекс?

[мисс_граффити]

можно как-то так:

i:=1;
while (i<=n) and (a[i]<0) do
  i:=i+1;

Теперь смотришь - если i больше n, значит, ничего не нашли.
Если меньше или равно - то количество эл-тов после положительного будет n-i.

i - индекс эл-та, a[i] - он сам.