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

Minmax18. Дано целое число $N$ и набор из $N$ целых чисел. Найти количество элементов, содержащихся между первым и последним максимальным элементом. Если в наборе имеется единственный максимальный элемент, то вывести $0$ .

Решение Дмитрий:

использовать Файлы
алг Minmax18 (рез цел amount)
нач
 файл файл1
 цел A,MAX,firstMax,lastMax,i
 lastMax:=0
 файл1:=открыть на чтение ("Minmax18.txt")
 ввод файл1, A
 i:=1
 вывод A, " "
 MAX:=A
 firstMax:=i
 нц пока не конец файла(файл1)
  ввод файл1, A
  i:=i+1
  вывод A, " "
  если A>MAX
   то
    MAX:=A
    firstMax:=i
  все    
  если A=MAX то
    lastMax:=i
  все   
 кц
 закрыть(файл1)
 выбор 
  при lastMax=firstMax : amount:=0
  при lastMax<>firstMax : amount:=lastMax-firstMax-1
 все
 вывод нс
кон

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

алг Minmax18 (рез цел amount)

нач

файл файл1

цел A,MAX,firstMax,lastMax,i

lastMax:=0

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

ввод файл1, A

i:=1

вывод A, " "

MAX:=A

firstMax:=i

нц пока не конец файла(файл1)

ввод файл1, A

i:=i+1

вывод A, " "

если A>MAX

то

MAX:=A

firstMax:=i

все

если A=MAX то

lastMax:=i

все

кц

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

выбор

при lastMax=firstMax : amount:=0

при lastMax<>firstMax : amount:=lastMax-firstMax-1

все

вывод нс

кон

Файл Minmax18.txt:

0 0 0 0 0 0 0 0 0 0

1	0 0 0 0 0 0 0 0 0 0

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

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

Комментарии:

Добавить комментарий Отменить ответ