Решаем задачи Абрамян на Кумире. Array38

Array38. Дан массив размера $$N$$. Найти количество участков, на которых его элементы монотонно убывают.

Решение:

использовать Файлы

алг Array38 (рез цел answer)

нач

файл файл1

цел i, N, NMAX

NMAX:=100

вещтаб a[1:NMAX]

файл1:=открыть на чтение ("Array38.txt")

N:=0

вывод "Входные данные: "

нц пока N < NMAX и не конец файла (файл1)

N:=N+1

ввод файл1, a[N]

вывод a[N], " "

кц

вывод нс

закрыть(файл1)

лог down

down:=нет

answer:=0

нц для i от 2 до N

если a[i]<a[i-1] и не down то

answer:=answer+1

down:=да

иначе если a[i]>=a[i-1] то

down:=нет

всё

кц

кон

Файл Array38.txt

1	1 1 0 0 1 3 5 4 3 9 8

Другие задачи из раздела Array можно посмотреть здесь.