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

Question

Информатика

Кона

17 марта, 05:57

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

+5

Ответы (1)

Знаете ответ?

Кора · Answer 1

Var

A:real;

i:integer;

Begin

i:=0;

WriteLn ('Введи элементы последовательности через пробел') ;

Repeat

Read (A) ;

i:=i+1

Until A>0;

Write (i)

End.