TolkienDRR

   Да блин, действительно хотел бы научиться, давно бы научился. Я постигал всё это, делая свой первый ролик по кс, вполне реально всему научиться. Мозгов много не надо, пару гигов туториалов и всё. Скорость и качество - приходит с опытом. Так что учись на механика (легче работу найти) и как хобби комп.графика.

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

тихо в Бууза, что возле Мира игры (Сибирь).

Lakers, тоже верно, надо бряк вставить =)

Добавлено спустя 1 минуту 9 секунд:

k:=0;
for i:=1 to n do //n - количество слов
 for j:=1 to length(a[i])-1 do  //a - массив слов
  if a[i][j]=a[i][j+1] then begin
   inc(k); //k - индекс в массиве со словами с двойными букафками
   b[k]:=a[i]; //b - сам массив
   break;     //переход на следующее слово
  end; 

Добавлено спустя 1 минуту 11 секунд:

rodya, возьми процедуру сортировки любую и сортируй по length(a);

   Не звонил, но думаю что-то с доступом к фтп бурнета через http.

k:=0;
for i:=1 to n do //n - количество слов
 for j:=1 to length(a[i])-1 do  //a - массив слов
  if a[i][j]=a[i][j+1] then begin
   inc(k); //k - индекс в массиве со словами с двойными букафками
   b[k]:=a[i]; //b - сам массив
  end;

кратко так.

Ну ет я знаю =)

Вот именно точнее хочу узнать =) не уж то никто не в курсе?

Innk

=D а я вообще не понял поставленной задачи )) увидев код сразу понятно стало =D

собственно это мои вопросы))) во сколько всё начинается, во сколько примерно закончится и где?

думаю посетить сиё мероприятие блинчиков покушать

Парень/мужчина 	 25%  	[ 9 ]
Девушка/женщина 	 11%  	[ 4 ]

еще чуть чуть и сломаем стереотипы =)

   Arika, и поза твоя любимая «наездница»?? )))

   Довольно интересные мнения услышал, судя по всему maxx1101 говорит с точки зрения опыта.

какие тут могут быть правила.

   это не правила, это личные точки зрения и опыт. Как ни крути, а всё таки суровая реальность дает нам статистику.

   Как по вашему, кто должен делать первый шаг в отношениях?

   Всегда парень/мужчина, потому что он сильный, волевой. Ну и потому что в отношениях именно он должен добиваться сердца девушки.

   Всегда девушка, потому что она более чувствительная, если ей нравится - значит 90% успеха в создании отношений, потому что парням нравится 90% девушек и ему влом получить отказ (он ведь сильный, волевой, брутальный и не должен обламываться).

   Кто сильнее любит/кому больше надо, ибо кто больше заинтересован, тот и должен бегать.

   Всё будет само собой или по пьяни (как бы не было печально, в основном так и бывает).

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

присоединяюсь. дурдом.

а нафега туда попадать, если вы простые задачки на заочном туре еле решаете то? о_О

по мне бессмысленно =)

bonfunk

в 11 утра в воскресенье будет работать она? )) а то я там 2 раза то был всего =D

что за миф то? )))

MaKc, поддерживаю =)

mar1boro, неее, Виталь я о том, что томские студенты подрабатывают сидя на телефонах и звоня по утрам =) а сраться вроде перестали уже ))

Vasiprada, в обед звонить надо )) у них как раз 7-8 утра XD

если не ошибаюсь подобная тема была.

а по теме, не знаю кто придет в действительно трудной ситуации на помощь, за исключением нескольких человек, но я приду на помощь куда большему числу.

Darimaa Romanovna, мои поздравления тебе и Имельяну =) Рад за вас ))

uses crt;
var
 a:array[1..5,1..5] of byte;
 i,j,s:byte;
begin
 clrscr;
 randomize;
 for i:=1 to 5 do begin
  writeln;
  for j:=1 to 5 do begin
   a[i,j]:=random(10);
   write(' ',a[i,j]);
   if j=3 then inc(s,a[i,j]);
   if (a[i,j] div 7 = 0) and (a[i,j]<>0) then a[i,j]:=1;
  end
 end;
 writeln('сумма элементов 3-го стобца равна ',s);
 for i:=1 to 5 do begin
  writeln;
  for j:=1 to 5 do write(' ',a[i,j]);
 end
 end
 readkey;
end. 

я бы наверно так написал. но для совсем краткости, сделал бы 2 матрицы напротив друг друга и один массив бы всего понадобился =) с пом. gotoxy(i,20+j) ну иль чтот подобного =)

Добавлено спустя 2 минуты 52 секунды:

у кого паскаль на руках протестите плиз:

uses crt;
var
 a:array[1..5,1..5] of byte;
 i,j,s:byte;
begin
 clrscr;
 randomize;
 for i:=1 to 5 do
  for j:=1 to 5 do begin
   gotoxy(i,j*2);
   a[i,j]:=random(10);
   write(a[i,j]);
   if j=3 then inc(s,a[i,j]);
   if (a[i,j] div 7 = 0) and (a[i,j]<>0) then a[i,j]:=1;
   gotoxy(i,30+j*2);
   write(a[i,j]);
  end
 writeln('сумма элементов 3-го стобца равна ',s);
 readkey;
end. 

Добавлено спустя 5 минут 45 секунд:

ой наврал с индексацией в gotoxy. наоборот вставьте

да проблематично не прошу бесплато думаю остались ещё добрые люди.

е-мое, пунктуацию бы =D

ну и сразу, откуда ты пользователь узнает, что в матрице что-то поменялось? )))

->> вывод изначальной матрицы добавить.

ну и сумму элементов столбца в один цикл можно, но не критично =)

Recovery, если не знаешь основ яп, что так и как реализована логика, операторов и прочей шелухи, то очень проблематично за 2 часа 42 минуты решить ее =D

тебе до когда надо? давай за полтинник на телефон решу =D

Добавлено спустя 20 минут 14 секунд:

осталось меньше трех часов XD

а у истоков какого банка не стояли мошенники? XD