Дано целое число N (>1) и набор из N вещественных чисел. Проверить, образует ли данный набор возрастающую последовательность. Если образует, то вывести True, если нет — вывести False.
Подробное решение,пожалуйста)
И не с инета)
Ответы
Ответ дал:
0
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
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
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад
10 лет назад