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

Question

Информатика

Тама

7 августа, 15:32

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

+2

Ответы (1)

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

Каролина · Answer 1

Var

A:real;

i:integer;

Begin

i:=0;

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

Repeat

Read (A);

i:=i+1

Until A>0;

Write (i)

End.