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

Question

Информатика

Васяха

1 сентября, 16:06

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

+4

Ответы (1)

Знаете ответ на вопрос?

Тима · Answer 1

Var

A:real;

i:integer;

Begin

i:=0;

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

Repeat

Read (A) ;

i:=i+1

Until A>0;

Write (i)

End.