Дана последовательность целых чисел. Прищнак окончания ввода - число 0 (элементом последовательности не считается). В последовательности как минимум одно число. Написать программу, определяющую, является ли последовательность чисел возрастающей. Если да програма должна вывести true, если нет - false.

Question

Информатика

Витеша

29 ноября, 11:27

Дана последовательность целых чисел. Прищнак окончания ввода - число 0 (элементом последовательности не считается). В последовательности как минимум одно число. Написать программу, определяющую, является ли последовательность чисел возрастающей. Если да програма должна вывести true, если нет - false.

+3

Ответы (1)

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

Артюня · Answer 1

Var a, b:integer; l:boolean;

begin

write ('a = ') ;

readln (a) ;

l:=true;

while (a0) do

begin

b:=a;

write ('a = ') ;

readln (a) ;

if (a0) and (a<=b) then l:=false;

end;

writeln (l) ;

end.

Пример 1:

a = 3

a = 6

a = 9

a = 4

a = 0

False

Пример 2:

a = 3

a = 6

a = 7

a = 0

True