D_Master

С праздником, Улановка!

Это, я так думаю. Разве что с мат. алгоритмами

Вроде бы как минимум, уже в мае не работала

ололо, у тампа баттхерт

Задрот и ноулайфер

Стереотип %)

Если знаете английский, смотрите в оригинале! КБ, конечно, здорово переводит, но некоторые отжиги Рэя перевести невозможно

Васяна нагнули, васян не ок11

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

Млиа... Вот не могли раньше сделать(

Лолчто?

AG твои картинки не торт

Близзы требуют для точного определения владельца аккаунта. Наряду со сканом паспорта.

Тут частично объясняется

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

Прочитай, и все пройдет.А потом - сюда - ulanovka.ru/forum/viewtopic.php?t=54237

Попробуйте обратиться в "Гарант Парк".

С прошедшим))

Лучше в иви с Тампом играйте т_Т

Иви онлайн добавь, Тамп туда укатился

В советской России галактика порабощает Тамплиера! На своем звездолете частое употребление ")))" признак не очень сильного ума веселого человека )))

Бан за Гагу

Язык-то какой? Если Delphi, как-то так (не проверял): worker = record name : string[20]; manuf : string[20]; salary : integer; end; var fHandler : file of worker; _worker : worker; procedure TForm1.FormCreate(Sender : TObject); begin AssignFile(fHandler, 'workers.dat') if not (FileExists('workers.dat')) then Rewrite(fHandler); end; procedure TForm1.Button1Click(Sender : TObject); var sName, sManuf : string; iSalary : integer; begin Reset(fHandler); sName := Edit1.Text; sManuf := Edit2.Text; iSalary := StrToInt(Edit3.Text); _worker.name := sName; _worker.manuf := sManuf; _worker.salary := iSalary; Write(fHandler, _worker); CloseFile(fHandler); ShowMessage('Entry was added to file!'); end; procedure TForm1.Button2Click(Sender : TObject); var sManuf : string; iSalarySumm, iWorkersCount : integer; begin sManuf := Edit2.Text; iSalarySumm := 0; iWorkersCount := 0; Reset(fHandler); while not (eof(fHandler)) do begin Read(fHandler, _worker); if (_worker.manuf <> sManuf) then continue; inc(iSalarySumm, _worker.salary); inc(iWorkersCount); end; CloseFile(fHandler); ShowMessage('Total salary for ' + sManuf + ' manufactory: ' + IntToStr(iSalarySumm)); ShowMessage('Avg. salary: ' + FloatToStrF((iSalarySumm / iWorkersCount), fffixed, 0, 3)); end;type На форме 3 эдита, 2 баттона. 1й эдит - имя, 2й - название цеха, 3й - зарплата. 1я кнопка - добавляет запись, 2я - ищет в файле инфу по 2му заданию. Ну и эвенты соответствующие назначить.

Эминема привезите))

яничегонепонял.пнг