cloudy

не подскажете в какое время по нашемо часовому поясу там лаги, заранее спасибо

есть у кого властелин колец трилогия? оч нада=)

коллективная

омжет тебе и нравилтся(лся) но остальным не вряд ли запах мази доставляет удовольствие=)

ага вот такое сообщение пришло

я думаю после чтения войны и мир на компе у тя зрение слетит на пару диоптрий=) канеш бумажные лучше

да я не умею, но умеет мама=) в этнографическом музее=) в лесу канеш моно косулю поймать

понемаю мне бы токо упало, а так мне, дяде мамке а могет все с бодуна после нового года и все не туда бабки закидывали=)

я же пощютиль=) ответьте на те вопросы 1-5

1 а моно с вами попенать мяч? 2 там за аренду зала плотите? 3 много народу приходит? 4 мячег хороший? 5 друзей моно приводить? 6 а подружек?=) щутка

брррр косулина(или как там=)) и кабанина отвратительно на вкус, уменя дядя охотник постоянно высылает=)

в общем после нового года (в числах пятых шестых) мне пришло сообщение мол с ######## лицевого счета на ващ лицевой счет ####### было перечислено 90 рублей, самое главное деньги эти упали и потом не сняли обратно. Мамке упало 9 рублей, дяде 69р это мы все троем мегафон, а тете которая на мегафон например никакие деньги не упали чо это было?

аще жара=)

давай еще аще посмеялся от дущи

ros.pro растительное масло полстакана сойдет?=)

ros.pro растительное масло полстакана сойдет?=)

хмм я думаю незя удалить имхо это шрам, а еси моно то в косметическом салоне каком нить

18 стукнет пойду сдавать=)

поменять местами максимальный и первый отрицательный элементы

спасибо большое!!! Добавлено спустя 45 секунд: TolkienDRR то есть моно исполозовать exit для выхода?

аа я получается реал приравнял к интеджер. спасибо coder uses crt; const n=10; var a:array [1..n] of integer; kr,summa,summa1,s1,max,min,minim,i,s,x,t,j,i_max,i_min,i_i:integer; sr,sred:real; flag:byte; procedure vvod; begin writeln ('vvedite cifri'); for i:=1 to n do readln (a); end; procedure srednii; begin vvod; s:=0; for i:=1 to n do s:=s+a; sr:=s/n; for i:=1 to n do b:=a-sr; for i:=1 to n do write (a); end; procedure ravno; begin vvod; s:=0; for i:=1 to n do s:=s+a; sr:=s/n; for i:=1 to n do b:=a-sr; t:=abs(a[1]); i_i:=1; for i:=2 to n do if abs(a) begin t:=abs(a); i_i:=i; end; write ('indeks elementa raven: ',i,'-e'); end; procedure minimalnii; begin vvod; for i:=1 to n do if a[j]>a[j+1] then begin x:=a[j]; a[j]:=a[j+1]; a[j+1]:=x; end; for i:=1 to n do if a>0 then min:=a; break; write ('minimalnii polozhitelnii element raven', min); end; procedure summaa; begin vvod; s1:=0; if a<0 then s1:=0 else for i:=1 to n do repeat s1:=s1+a; until a<0; writeln ('summa ravna: ', s1); end; procedure swap; begin vvod; max:=a[1]; i_max:=1; for i:=2 to n do if max begin max:=a; i_max:=i; end;; for i:=1 to n do if a<0 then begin как сделать чтобы он брал токо первый отрицательный член minim:=a; i_min:=i; break; это лишнее пхду end; a[i_max]:=minim; a[i_min]:=max; for i:=1 to n do write (a); end; procedure last; begin vvod; summa1:=0; for i:=1 to n-1 do for j:=1 to n-i do if a[j]>a[j+1] then begin x:=a[j]; a[j]:=a[j+1]; a[j+1]:=x; end; for i:=2 to n-1 do summa:=summa+a; sred:=summa/(n-2); write ('summa ravna: ', sred); end; begin clrscr; flag:=0; repeat writeln('1.vichet srednego'); writeln('2.znachenie blizkoe k srednemu'); writeln('3.minimum sredi polozhitelnih'); writeln('4.summa do pervogo otricatelnogo'); writeln('5.swap max and first otricatelnii'); writeln('6.srednee bez max and min'); writeln('0.exit'); write ('vvedite nomer: '); readln (kr); case kr of { 1:srednii; 2:ravno; 3:minimalnii;} 4:summaa; 5:swap; 6:last; 0:exit end; flag:=1 until flag=0; end. посморите еще вот ето

помогите а как интеркросс настроить?

uses crt; const n=10; var a:array [1..n] of integer; kr,summa,summa1,s1,max,min,minim,i,s,x,t,j,i_max,i_min,i_i:integer; sr,sred:real; flag:byte; procedure vvod; begin writeln ('vvedite cifri'); for i:=1 to n do readln (a); end; procedure srednii; begin vvod; s:=0; for i:=1 to n do s:=s+a; sr:=s/n; for i:=1 to n do a:=a-sr; тута for i:=1 to n do write (a); end; procedure ravno; begin vvod; s:=0; for i:=1 to n do s:=s+a; sr:=s/n; for i:=1 to n do a:=a-sr; еще тута t:=abs(a[1]); i_i:=1; for i:=2 to n do if abs(a) begin t:=abs(a); i_i:=i; end; write ('indeks elementa raven: ',i,'-e'); end; procedure minimalnii; begin vvod; for i:=1 to n do if a[j]>a[j+1] then begin x:=a[j]; a[j]:=a[j+1]; a[j+1]:=x; end; for i:=1 to n do if a>0 then min:=a; break; write ('minimalnii polozhitelnii element raven', min); end; procedure summaa; begin vvod; s1:=0; if a<0 then s1:=0 else for i:=1 to n do repeat s1:=s1+a; until a<0; writeln ('summa ravna: ', s1); end; procedure swap; begin vvod; max:=a[1]; i_max:=1; for i:=2 to n do if max begin max:=a; i_max:=i; end;; for i:=1 to n do if a<0 then begin minim:=a; i_min:=i; break; end; a[i_max]:=minim; a[i_min]:=max; for i:=1 to n do write (a); end; procedure last; begin vvod; summa1:=0; for i:=1 to n-1 do for j:=1 to n-i do if a[j]>a[j+1] then begin x:=a[j]; a[j]:=a[j+1]; a[j+1]:=x; end; for i:=2 to n-1 do summa:=summa+a; sred:=summa/(n-2); write ('summa ravna: ', sred); end; begin clrscr; flag:=0; repeat writeln('1.vichet srednego'); writeln('2.znachenie blizkoe k srednemu'); writeln('3.minimum sredi polozhitelnih'); writeln('4.summa do pervogo otricatelnogo'); writeln('5.swap max and first otricatelnii'); writeln('6.srednee bez max and min'); writeln('0.exit'); write ('vvedite nomer: '); readln (kr); case kr of { 1:srednii; 2:ravno; 3:minimalnii;} 4:summaa; 5:swap; 6:last; 0:exit end; flag:=1 until flag=0; end. Добавлено спустя 1 минуту 2 секунды: Блин помогите плииз, еси это не сдам зачета нее видать=(задано целое n>0 и массив элементов х1,х2,х3, ... ,хn а) преоброзавать исходный массив, вычитая из каждого элемента среднее значение б)определить индекс элемента, значение которого наиболее близко к среднему значению элементов массива в)найти минимальный элемент среди положительных элементов заданного массива г)вычислить сумму элементов массива, расположенных до первого отрицательного элемента массива д)поменять местами максимальныи и первый отрицательный элементы массива е)вычислить среднее значение элементов массива, отбросив минимальный и максимальный элементы вот задание

а серв норм лагов нет?

ДИБ ДИБ УРААА!!! да не испортит @#@#@ БВК наш праздник!!! а кто создатель сайта? мак?