Question

Дано целое число N (>1) и набор из N вещественных чисел. Проверить, образует ли данный набор возрастающую последовательность. Если образует, то вывести True, если нет — вывести False.
Подробное решение,пожалуйста)
И не с инета)

Answer 1

var n,i:integer; a,b:real; l:boolean;
begin
write('N='); readln(n);
l:=true;
write('a='); readln(a);
for i:=2 to n do
 begin
 write('a='); readln(b);
 if b<a then l:=false;
 a:=b;
 end;
writeln(l);
end.

Пример:
N=5
a=2
a=4
a=5
a=7
a=9
True