Тэги темы: буйный бусидо:eek:

:morj:

:dovolen:

никто не проходит блеать

всех ненавижу (с) мапед :horosho:

братюни зацените трек в подписи :horosho: от души

ни одной цифры:o

я не курю:morkovka:

номер23 ты всех задерживаешь

при том что ты всё равно не пройдёшь

сроки чмоки давно уже настали.
кто не успел, тот проегарльчик.:o
давай некст ровунд.

через 2 часа будут оценки если я не усну

:|в жопу себе засунь морковку и прокрути теперьhttp://www.youtube.com/watch?v=otCpCn0l4Wo

проходят все кто зарегистрирован на форуме :horosho:
а теперь само задание:
вам дан номер моего яндекс-кошелька 41001584969843, вы должны положить на него денег. выигрывает тот кто положит больше всех :o при переводе обязательно подписывайте свой никнейм дабы избежать неприятных ситуаций :o :horosho:

а вот этого я жду уже пятый час:horosho:

:krik:
риспект городам
риспект синагогам
риспект алисе альбе
ЙОу йоу йоу

http://upload.wikimedia.org/math/9/e/2/9e28669b53bf34f05...50ec0e.png
http://upload.wikimedia.org/math/c/3/a/c3a6974612739b5c7...67e556.png

:krik::krik::krik:

uses CRT;

CONST
MAXIM = 20;

TYPE
matrix_2 = array[1..MAXIM, 1..MAXIM] of real;

VAR
M,N : integer;
A,B : matrix_2;

Procedure Read_Matrix;
Var
i,j : integer;
Begin
M:=0;
Writeln;
while (M<=0) or (M>MAXIM) do begin
Write(':meat: (M): ');
Readln(M);
if (M<=0) or (M>MAXIM) then Writeln('M должно быть больше 0 и меньше ',MAXIM,' !');
end;

N:=0;
while (N<=0) or (N>MAXIM) do begin
Write('Ведите число столбцов исходной матрицы (N): ');
Readln(N);
if (N<=0) or (N>MAXIM) then Writeln('N д:ma3im: ',MAXIM,' !');
end;

Writeln;
Writeln('Ввод исходной матрицы (А):');
for i:=1 to M do begin
for j:=1 to N do begin
Write(':morkovka: (',i,',',j,'): ');
Readln(A[i,j]);
end;
end;
End;

Procedure Write_Matrix(N,M: integer);
Var
i,j : integer;
Begin
for i:=1 to M do begin
for j:=1 to N do Write(' ',A[i,j]:0:3);
Writeln;
end;
End;

Procedure Process_Matrix;
Var
i,j,k : integer;
max_str : integer;
min_str : integer;
max_str_sum : real;
min_str_sum : real;
sum : real;

Begin
{:king:}
sum:=0;
for j:=1 to N do sum:=sum+A[1,j];
max_str_sum:=sum;
max_str:=1;
min_str_sum:=sum;
min_str:=1;

for i:=1 to M do begin
sum:=0;
for j:=1 to N do sum:=sum+A[i,j];
if sum>max_str_sum then begin
max_str_sum:=sum;
max_str:=i;
end;
if sum<min_str_sum then begin
min_str_sum:=sum;
min_str:=i;
end;
end;
Writeln;
Writeln(':boyara:е ',max_str);
Writeln(':horosho: ',min_str);

if (max_str<>min_str) then begin
{:krik::krik::krik:}
for j:=1 to N do B[1,j]:=A[max_str,j];
k:=1;
for i:=1 to M do begin
if (i<>max_str) and (i<>min_str) then begin
k:=k+1;
for j:=1 to N do B[k,j]:=A[i,j];
end;
end;
for j:=1 to N do B[M,j]:=A[min_str,j];

{A:=B}
for i:=1 to M do begin
for j:=1 to N do A[i,j]:=B[i,j];
end;
end else begin

BEGIN
ClrScr;
;

Read_Matrix;

Writeln;
Writeln('Исходная матрица (А):');
Write_Matrix(N,M);

Process_Matrix;

Writeln;
Writeln('Обработанная матрица (А):');
Write_Matrix(N,M);

Writeln;
Writeln('Нажмите <Enter> для выхода.');
Readln;

http://upload.wikimedia.org/wikipedia/ru/2/2d/Sch.png

/THE END/

наконец то, вечером будут оценки

:king:

ты забыл написать что тебя засудили!!!!!))))

меня не засудили а автоматически в финал отправили:cool:

заебись что одним тэйком всё
но слабенько, очень слабенько:o
готовься к следующим баттолам :horosho:

Какой раунд то

ты будеш в даполнительном равнде , я - нет

да, да, ты прав, я иду в четвёртый (дополнительный) роунд, а ты нет. :o

юху я в финале:seva:

повторю, чтоб на новой стр было

решили слить фаворита батела, я этого так не оставлю. я буду обращаться в вышестоящие инстанции.:mad:

это оценки от одного судьи, это не окончательные оценки

это не я пизжу панчи, это у меня пиздят панчи, мне 73 года, я 43 года в репе :o

:eek:

поминтся мне такую же песню пели перед тем как слить:o

:cool:

кстати для меня это сенсация, считал тебя главным фаворитом батола, ибо по флоу ты всех выносил, а в 3 равунде решил немного поэксперементировать, и видимо зря, куплет про 8437545783459 не в кассу был

один не арестованный судья остался))))

:o

аценки:(

на чо это ты намекаешь? :boyara:

где?

аценки:(

при подсчёте результатов, прошу учесть моё терпение, уважаемый верховный судья

бател сдулся, ё

От Питонаъ

Dream 100100
Рока 100100
Номер23 100100
TaiN 100100 - выделен как пидарас #1 на баттле

Остальным morkovka

батол даже не куплен :o

от меня посыл всёотлично в следуйщий раунд как 5 участника, нелепо и брутально ребятки

петон верни мои бабки, хуило ты неграмотное, я отказываюсь брать ваш цифровой утконос:o

Оееее воцап воцап :jed:

давайте уже полуфинал

в полуфинал прохадят те кто хочют :o
ввсе равно выегарли удав и сд :o

батол не куплен :o