1.8. Составить программу, которая выдавала бы сообщение ' true ', если последовательность из N целых чисел, вводимых с клавиатуры, является возрастающей

Question

Информатика

Филипка

1 февраля, 00:32

1.8. Составить программу, которая выдавала бы сообщение ' true ', если последовательность из N целых чисел, вводимых с клавиатуры, является возрастающей

+3

Ответы (1)

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

Альбина · Answer 1

Pascal

var

a, b, n, i : integer;

r : boolean;

begin

r : = true;

readln (n) ;

read (a) ;

for i : = 1 to n-1 do

begin

read (b) ;

if b < a then

r: = false;

a : = b;

end;

writeln (r) ;

end.