Решение задачи

[zheka21]

Программа, которая определит, скока подарков поплывет по реке Сухоне в хрустальной лодке после того,как 83 деда мороза разберут подарки поровну!

b.in
4
764532
71690
1000
9127
b.out
81

На вход программе подаётся число мешков с подарками N, затем N неотрицательных чисел, выражающих число подарков в каждом мешке. 83 деда мороза делят подарки из каждого мешка поровну, а оставшиеся складывают в хрустальную лодку; при получении нового мешка подарки из лодки также участвуют в дележе. Когда мешки заканчиваются, лодка с неподелёнными подарками отправляется по реке Сухоне. Программа должна вывести, сколько подарков будет в этой лодке.

[Abstraction]

Э-э-э... чего-чего?
[telepathy_mode = 1]
На вход программе подаётся число мешков с подарками N, затем N неотрицательных чисел, выражающих число подарков в каждом мешке. 83 деда мороза делят подарки из каждого мешка поровну, а оставшиеся складывают в хрустальную лодку; при получении нового мешка подарки из лодки также участвуют в дележе. Когда мешки заканчиваются, лодка с неподелёнными подарками отправляется по реке Сухоне. Программа должна вывести, сколько подарков будет в этой лодке.

[Sciv]

Во блин! Маразм в отечественных институтах/школах крепчает? Мало того, что сами студенты нифига не знают и знать не хотят, даже про здрассти-пожалуйста-спасибо не слышали - так еще и преподаватели с ума сходить начали?
То тут заколдованный принц четыре палочки в треугольник должен собрать, то деды Морозы подарки разбирают - причем подарки чужие, заметьте. Которые кто-то где-то ждет.

Вот уж действительно разница между нами и заграницей, как когда-то Задорнов заметил:

Их сказка: "Посадил царь молодильную яблоню..."
Наша: "УЗНАЛ царь, что где-то есть молодильная яблоня и послал сыновей..."

Кстати, что это за бессмысленный набор чисел на входе?

[zheka21]

они должны использоваться 1

оч прошу помогите

[Sciv]

они должны использоваться 1

Кто должен использоваться? Деды Морозы, подарки или лодка?

[zheka21]

сколько поплывет на лодке подарков надо знать !

из файла!!!!!!!!11

[Sciv]

const CountOfDedMoroz=83;
var i,N,podarki,sum: integer;
begin
  Write('Кол-во мешков: ');
  ReadLn(N);
  sum:=0;
  For i:=1 to N do begin
    Write('Введите количество поларков в мешке №',i,': ');
    ReadLn(podarki);
    Sum:=Sum+podarki;
  end;
  WriteLn('По реке Сухоне в хрустальной лодке поплывут подарки в количестве: ', Sum mod CountOfDedMoroz,'! Остальные подарки сперты Дедами Морозами!');
end.

На обращение к файлу только переделать осталось

[zheka21]

ты не правильно понял надо найти скока лодок плывет + еще надо сделать так чтобы он читал с файла

[Serge_Bliznykov]

zheka21, лодка всего одна.
и решение, которое дали, по сути АБСОЛЮТНО правильно (суммируются все подарки и находится остаток от целочисленного деления на число дедов)

еще надо сделать так чтобы он читал с файла

делай, никто не запрещает!

[Sciv]

ы не правильно понял надо найти скока лодок плывет + еще надо сделать так чтобы он читал с файла

Лодка, как правильно заметил Сергей, всего одна. А понял я ровно в тех пределах, в которых изложена задача.

Пример работы с файлом тебе в прошлой задаче про понедельники в календарных датах опять же Сергей дал (кстати, даже спасиба за это не дождался), можешь оттуда содрать, дело несложное.