Дана последовательность из n вещественных чисел, начинающаяся с отрица-
тельного числа. Определить, какое количество отрицательных чисел записано
в начале последовательности. Условный оператор не использовать.
Ответы
Ответ дал:
6
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 <n do
begin
k := k -1;
a := n;
end;
writeln (k);
end.
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 <n do
begin
k := k -1;
a := n;
end;
writeln (k);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
7 лет назад