Решить на pascal'е: дано целое число n и набор из n вещественных чисел. проверить, образует ли данный набор возрастающую последовательность, если образует, то вывести true, если нет - вывести false
Program 1; var n,i,G,x:real readln(n); G := true; i := 1; read(x); while (i <= n) and OK do begin x_pr := x; read(x); if x_pr > x then G := false; inc(i) end; writeln(G) readln; end.
var n,i,G,x:real
readln(n);
G := true;
i := 1;
read(x);
while (i <= n) and OK do
begin
x_pr := x;
read(x);
if x_pr > x then G := false;
inc(i) end;
writeln(G)
readln;
end.