Вывести индекс первого положительного элемента числовой последовательности. Известно, что такой элемент существует.

Question

Гость

Ответ(ы) на вопрос:

Accepted Answer

Var A:real; i:integer; Begin i:=0; WriteLn('Введи элементы последовательности через пробел'); Repeat Read(A); i:=i+1 Until A>0; Write(i) End.