Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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