Дана последовательность действительных чисел а1, а2, ..., аn. Выяснить,
будет ли она убывающей.
пожалуйста срочно
Ответы
Ответ дал:
0
// PascalABC.NET
begin
var n := ReadInteger;
var ak := ReadReal;
var i := 1;
while i < n do
begin
var ai := ReadReal;
if ai >= ak then
begin
Print('нет');
exit
end;
ak := ai;
i += 1
end;
Print('Да')
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад