Дано целое число n (> 1) и набор из n вещественных чисел. проверить, образует ли данный набор возрастающую последовательность. если образует, то вывести true, если нет — вывести false. подробное решение,) и не с инета)
117
455
Ответы на вопрос:
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=5a=2a=4a=5a=7a=9true
Рис 1 - Перемещение по сцене
Рис 2 - Ластик
Рис 3 - Push/pull
Рис 4 - Заливка
Популярно: Информатика
-
vadimvadimvadimvadim06.03.2020 02:00
-
XOBasya04.07.2021 15:32
-
Denchik11111111111129.01.2020 13:12
-
хеда6215.03.2022 17:08
-
Askmay09.05.2023 15:16
-
Viktoria1231114.01.2022 14:03
-
minpro14.10.2022 23:05
-
eiljo28.06.2020 14:14
-
tolkynd1709.01.2020 21:56
-
medinaofficial01.12.2022 00:00