Дана последовательность из n вещественных чисел, начинающаяся с отрица-

тельного числа. Определить, какое количество отрицательных чисел записано

в начале последовательности. Условный оператор не использовать.

Question

Информатика

Руфиниана

13 июня, 19:02

Дана последовательность из n вещественных чисел, начинающаяся с отрица-

тельного числа. Определить, какое количество отрицательных чисел записано

в начале последовательности. Условный оператор не использовать.

+4

Ответы (1)

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

Галина · Answer 1

const

n = 5;

var

a, i, k : integer;

begin

readln (a) ;

k : = 1;

While (a < 0) and (k < n) do

begin

k : = k + 1;

readln (a) ;

end;

for i : = k to n do

readln (a) ;

a : = k;

While a
begin

k : = k - 1;

a : = n;

end;

writeln (k) ;

end.