Ответы на вопрос:
Uses crt; var a: array [1..100] of byte; a, k,i,n: byte; begin read(i); a: =0; for k: =1 to i do begin read(n); a[k]: =n; end; for k: =1 to i-1 do if a[k]< a[k+1] then a: =a+1; write(a); end.
Популярно: Информатика
-
Alinka50550501.08.2021 17:42
-
ВладаГоликова14.12.2020 02:26
-
MariaBobrova03.02.2020 05:14
-
Айсулу200228.05.2023 01:41
-
Gootya115.08.2021 06:03
-
dieric16.09.2021 23:39
-
HeZnAiKaxXx30.12.2022 22:57
-
ffgdfsdf01.08.2022 11:10
-
MrFoksSuper21.09.2022 12:41
-
darasnezko29713.06.2023 02:29