voland

Из-за этого контингента, хоть и сам человек не малых размеров, стараюсь почти всегда носить с собой финку.

Мне тоже снесло, перед этим промелькнуло сообщение про видюху...

С роботом просто "мозговышебательно" XDDD

Благодарю за инвайт))

[email protected]

Унылое говнецо... Больше ничего и не скажешь.

+100500 мягко говоря - редкостное матерное говно, от изобилия матов и нецензурщины уши таки вянут. Так что лучше уж TIХ...

Серий-то вышло уже аш 14 второго сезона, а вот переведено только 10 ((( [sibvid]368165[/sibvid]

Да, ответ выдаст верный, но там пару условий и проверку надо изменить...

Млооо... малость не понял про по-парно различный массив, вернее сказать неправильно понял, вся хрень из-за этого...

А так и должно быть! Ну да всё правильно, как я понял надо чтобы было как минимум по 2 положительных и отрицательных, смысл тогда находить наименьшие и наибольшие из + и - А смысл вообще это делать? ошибка да ошибка! пох какая, пусть сам соображает что исправить... После этих наездов на ифы и код, вот скажи вообще нахера пипи на код если ты его даже толком не смотрел, попипи решил? Только с нескольких заходов дошло зачем вообще нужно условие A<>M, и дошло ли вообще....

Ты всезнайка, который пишет такие умные вещи, вот нахер запусти и посмотри что получится без проверки (A<>M), чему будет приравнен VpV, без этого условия. Сколько раз говорить то!!! Ну во-первых, это не процедура а функция, а во-вторых, всё в ней нормально, функция для нахождения мин и макс, проверки массива на удовлетворение условию. Ну да... фактически я разорвал код на две части, тут можно и без функции обойтись, с этим я не спорю - это мои тараканы и они мне не мешают... это какая-то лаба, которую защитил и забыл, а не курсач, в котором надо оптимизировать код и показывать свои навыки, и т.д. По идее мой первый код был и есть рабочий, только без проверок, а вот нахера ты свой написал... Версия 1.3 final - без тараканов))) uses crt; const n=20; var A:array[1..n] of integer; i,CP,CO:word; M,NiO,NiP,VpV:integer; BEGIN clrscr; {-------------------------------------------------} randomize; for i:= 1 to n do begin A[i]:=random(100)-50; write(A[i],' '); end; writeln; {-------------------------------------------------} M:=A[1]; NiO:=A[1]; CP:=0; CO:=0; for i:= 1 to n do begin if (A[i]>0) then inc(CP); if (A[i]<0) then inc(CO); if (A[i]>M) then M:=A[i]; if (A[i]end; if ((CP>1)and(CO>1)) then begin VpV:=NiO; NiP:=M; for i:= 1 to n do begin if ((A[i]<>M)and(A[i]>VpV)) then VpV:=A[i]; if ((A[i]>0) and(A[i] if ((A[i]<0) and(A[i]>NiO)) then NiO:=A[i]; end; writeln('Второй по величине:',VpV); writeln('Наименьший из положительных:',NiP); write('Наибольший из отрицательных:',NiO); end else write('Массив не подходит!'); readkey; END.

версия 1.2)) uses crt; const n=20; var A:array[1..n] of integer; i,CP,CO:word; M,NiO,NiP,VpV:integer; function Puhdys : boolean; begin for i:= 1 to n do begin if (A[i]>0) then inc(CP); if (A[i]<0) then inc(CO); if (A[i]>M) then M:=A[i]; if (A[i]end; if ((CP>1)and(CO>1)) then Puhdys:=true else Puhdys:=false; end; BEGIN clrscr; {-------------------------------------------------} randomize; for i:= 1 to n do begin A[i]:=random(100)-50; write(A[i],' '); end; writeln; {-------------------------------------------------} M:=A[1]; NiO:=A[1]; CP:=0; CO:=0; if Puhdys then begin VpV:=NiO; NiP:=M; for i:= 1 to n do begin if ((A[i]<>M)and(A[i]>VpV)) then VpV:=A[i]; if ((A[i]>0) and(A[i] if ((A[i]<0) and(A[i]>NiO)) then NiO:=A[i]; end; writeln('Второй по величине:',VpV); writeln('Наименьший из положительных:',NiP); write('Наибольший из отрицательных:',NiO); end else write('Массив не подходит!'); readkey; END.

Ёб... а я писал что-то про производительность?! Ну и конечно я проверки не делал, соответственно всякие вытекающие пакости выпадают, мой код для правильного массива))) В принципе можно и прикрутить проверки, но это уже должен делать сам просящий... Это да... пропустил, просто добавил условие A<>M, а про первый иф забыл)) А вот как раз таки и учтено! внимательней код просмотри! если не веришь... копируешь в блокнот, сохраняешь как *.раs, открываешь ТП, компилишь и радуешься)) uses crt; const n=20; var A:array[1..n] of integer; i:word; M,NiO,NiP,VpV:integer; BEGIN {-------------------------------------------------} clrscr; randomize; for i:= 1 to n do begin A[i]:=random(100)-50; write(A[i],' '); end; writeln; readkey; {-------------------------------------------------} M:=A[1]; NiP:=32767; NiO:=-32768; VpV:=-32768; for i:= 1 to n do begin if (A[i]>M) then begin VpV:=M; M:=A[i]; end else if ((A[i]>VpV)and(A[i]<>M)) then VpV:=A[i]; if (A[i]>0) then if (A[i] if (A[i]<0) then if (A[i]>NiO) then NiO:=A[i]; end; writeln('Vtoroy po velichine:',VpV); writeln('Naimenshiy iz polojitelnih:',NiP); write('Naibolshiy iz otricatelnih:',NiO); readkey; END. Вот тебе так сказать трассировка:: (конечно так для примера) А=(10,-3,-5,6,3) 1) А[1]=10 M=10 NiP=10 NiO=-32768 VpV=-32768 2) А[2]=-3 M=10 NiP=10 NiO=-3 VpV=-3 3) А[3]=-5 M=10 NiP=10 NiO=-3 VpV=-3 4) А[4]=6 M=10 NiP=6 NiO=-3 VpV=6 5) А[5]=3 M=10 NiP=3 NiO=-3 VpV=6

Ну вроде вот так: uses crt; const n=20; var A:array[1..n] of integer; i:word; M,NiO,NiP,VpV:integer; BEGIN {-------------------------------------------------} clrscr; randomize; for i:= 1 to n do begin A[i]:=random(100)-50; write(A[i],' '); end; writeln; readkey; {-------------------------------------------------} M:=A[1]; NiP:=32767; NiO:=-32768; VpV:=-32768; for i:= 1 to n do begin if (i<>1) then if (A[i]>M) then begin VpV:=M; M:=A[i]; end else if ((A[i]>VpV)and(A[i]<>M)) then VpV:=A[i]; if (A[i]>0) then if (A[i] if (A[i]<0) then if (A[i]>NiO) then NiO:=A[i]; end; writeln('Vtoroy po velichine:',VpV); writeln('Naimenshiy iz polojitelnih:',NiP); write('Naibolshiy iz otricatelnih:',NiO); readkey; END. Конечно рандомный массив для примера. И такое присвоение: ... NiP:=32767; NiO:=-32768; VpV:=-32768; ... Макс и мин для integer мне не нравится, но в один проход по-моему ничего лучше не придумать))

пииии)))

Это интересно из каких классов? 10-11 XDDD Эххх вспомнить бы... по-моему мы "Война и мир" на литературе читали в 10 или 11 классе, 6-7 лет прошло, не помню уже))

По такой логике надо закрыть улановку как форум, оставить только трекер))

Меня как-то это копирование не напрягает)

По мне, так надо ставить именно за раздачу, а не за оформление раздачи.

Battleman *facepalm а я что-то другое чтоли написал??? Да и до кучи твой пример неправильный.

о_0 1 - нужно скачать програмку(image grabber и т.п.), ну или в граф. редакторе можно сделать. 2 -VVV [url=http://ulanovka.ru/uploads/old_images/users/17157/Bezyimyannyiy_7d6b143853766ae88fbf8e51bd51c430.JPG][img=http://ulanovka.ru/uploads/old_images/users/17157/Bezyimyannyiy_7d6b143853766ae88fbf8e51bd51c430.JPG][/url] [url=ссылка(на форум/картинку/пост)][img]ссылка на картинку[/img][/url] А вообще если у кого-то хочешь "содрать" оформление просто нажми на "цитировать"

В общем проблема уже давно, появилась с переходом на ИЕ8.0 Если плеер в спойлере то такой баг: Такое ощущение, что отображается увеличенный левый верхний угол плеера)) Без спойлера всё нормально.

Детей не заводят, заводят домашних петомцев. хммм... это скорей при нынешней ситуации значит "мечтать о четырёх детишках))"

ГРУ