Minmax20. Дано целое число $$N$$ и набор из $$N$$ целых чисел. Найти общее количество экстремальных (то есть минимальных и максимальных) элементов из данного набора.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
program MinMax20; var N,Ni,Num,N1,N2,i:Integer; begin Num:=0; N2:=0; Ni:=0; Write('N:'); Readln(N); for i:=1 to N do begin N1:=N2; N2:=Ni; Write(i,' элемент:'); Readln(Ni); if (i=2) and (N2<>Ni) then inc(Num) else if (i>2) then if ((N2>N1) and (N2>Ni)) or ((N2<N1) and (N2<Ni)) then inc(Num); end; if N2<>Ni then inc(Num); Writeln(Num); end. |
Другие задачи из раздела Minmax можно посмотреть здесь.
Сколько сравниваю ваши решения, столько же удостоверилась в том, что они ошибочны. Выкладывать на сайт столь ошибочные решения и уверять всех в названии «клевый код» так нелепо. Такое чувство, что пишет какой-то нуб, не умеющий элементарно и правильно написать код к задачам на Паскале
Здравствуйте, дорогая и уважаимая Мария.
И так не по порядку.
> Выкладывать на сайт столь ошибочные решения и уверять всех в названии «клевый код» так нелепо.
Я наверно вас разочару, но «клёвый» не тоже самое, что «правильный». Если посмотреть толковый словарь, то вы можете посмотреть синонимы к этому слову (мне понравился словарь Даля) » клюжий, клювый, хороший, пригожий, красивый, казистый, добротный; выгодный или полезный. пример «Это клёвое дело, путь будет.» »
>Сколько сравниваю ваши решения, столько же удостоверилась в том, что они ошибочны.
Вас не устраивает конкретное решение? может вы знаете ошибку? где ошибка в этом решении? может вы хотели бы предложить своё решение? Если вы ответите на любой из этих вопросов или зададите свой по этим задачам, то данный сайт сделал для вас больше, чем планировал я. А вы вон сколько времени потратили на своё самосовершенствование… судя по вашему комментарию.
> Такое чувство, что пишет какой-то нуб, не умеющий элементарно и правильно написать код к задачам на Паскале
Вот здесь интересное слово… нуб … будем считать, что синоним идиот… Так вот считайте меня ребёнком 2,5 годика который по начам в тайне от родителей лабает сайт.
Так почему я считаю, что данные решения клёвые? Потому, что это полностью прорешанный учебник Абрамяна. Да есть изъян — он прорешан мной. И если вы посмотрите на комментарии, то люди предлагают в них свои решения, говорят мне об ошибках, и я в ношу исправления в свои решения. Да к сожалению всё, как в жизни просто так ничего ни откуда не берётся. Очень трудно обработать столько заданий и ко всем написать «правильные решения». И в моих силах только предоставить площадку для таких умных и отзывчивых людей, как вы.
Успехов в самосовершенствовании.
В дискуссии с коллегой, я обратил внимание на то , что понятие «правильный» не раскрыто.
В частности: «правильный» — не тоже самое, что «верный», в отношении решений каких либо задач.
В целом: правильный — сделаный по правилу.
Нюанс: правило можно задать «любое».
Например правило: «сделать кульбит на крыше 9-ти этажки, а затем спрыгуть вниз головой с 5-ого этажа».
Если следовать этому правилу, то результат — кусок окровалвенного мяса — правильный результат.
Но совсем не клёвый. :+)
А уж если цель — дожить до старости. То кроме описнной «не клёвости», этот результат ещё и не верный.
Рекомендуется разделять разные понятия в своей реализации эпистолярного жанра. Так же рекомендуется следовать подобному правилу [:+)] и в отношении других способов общения.
ПМСМ…
Поправил решение.
Было:
Стало:
Исправленный код тоже не верен. На тесте из последовательности
2 6 2 4 4 4 2 2 6 выдает 4, а должен 6
вот мой код
Вот еще решение на «новом стиле» если кому нужно было