Дана последовательность из n вещественных чисел, начинающаяся с отрица- тельного числа. Определить, какое количество отрицательных чисел записано в начале последовательности. Условный оператор не использовать.
Дана последовательность из n вещественных чисел, начинающаяся с отрица-
тельного числа. Определить, какое количество отрицательных чисел записано
в начале последовательности. Условный оператор не использовать.
Гость
Ответ(ы) на вопрос:
Гость 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
Не нашли ответ?
Похожие вопросы