Решить задачу ** Pascal'е:Дано целое число N и набор из N вещественных чисел. Проверить,...

Question

Решить задачу на Pascal'е:
Дано целое число N и набор из N вещественных чисел. Проверить, образует ли данный набор возрастающую последовательность, если образует, то вывести True, если нет - вывести False

Answer 1

Program 1;
var n,i,G,x:real
readln(n);
 G := true;
 i := 1;
read(x);
while (i <= n) and OK do  <br>begin 
 x_pr := x;  
read(x);  
if x_pr > x then G := false;
inc(i) end;   
writeln(G)
readln;
end.