Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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:=b;
 end;
writeln(l);
end.

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