Составить программу, проверяющую, является ли последовательность из 10 целых чисел, вводимых с клавиатуры, возрастающей
251
263
Ответы на вопрос:
Var a1,b2,c,d: integer; begin write('введите числа через пробел: '); read(a1); for d: =2 to 10 do begin read(b2); if b2> a1 then inc(c); a1: =b2; end; if c=9 then writeln('да') else writeln('нет'); end.
Популярно: Информатика
-
Ilyakuhs22811.01.2020 05:24
-
temka201312.08.2021 20:25
-
Sofi43243219.12.2020 12:20
-
Demaniza13.04.2021 10:20
-
luizalol24.07.2022 03:01
-
saitovdamir20Damit19.07.2020 01:12
-
JHopeЧонХосочек15.01.2021 18:46
-
Megatrolll22821.05.2021 17:55
-
draufzoda14.01.2021 10:28
-
xeniakudriavts125.03.2021 11:47