задача для Школьной олимпиады - сколько монеток должно быть в кофемате в Ужляндии

[Злое Аниме]

Помогите)

Фирма bookface, которая создана в Ужляндії, в которой работает Степан, решила установить в своих офисах автоматы по продаже чая и кофе, чтобы программисты во время перерыва могли с толком провести время.
Стоимость стакана чая и кофе в автомате предполагается установить равной пяти ужикам (такая в Ужляндії валюта). Автоматы будут принимать монеты по 5 и 10 ужиків, а также купюры в 10, 50 и 100 ужиків. Когда программисту нужно выдавать сдачу (то есть когда программист бросил в автомат монету в 10 ужиків, или купюру в 10, 50 или 100ужиків), автомат выдает сдачу монетами в пять ужиків; если же пассажир бросил в автомат монету в пять ужиків, то автомат ее сохраняет и может использовать для сдачи следующим программистам.
Очевидно, что, чтобы обеспечить возможность выдачи сдачи всем ппрограмістам, может понадобиться сначала загрузить в автомат некоторое количество монет в пять ужиків. Сейчас в офисах фирмы проходят испытания с целью определить минимальное количество монет, которые надо загрузить в автомат перед рабочим днем.
Вам дан протокол одного из таких испытаний: известен порядок, в котором программисты оплачивали свои покупки различными монетами и купюрами. Определите, какое минимальное количество монет в пять ужиків, должно было изначально находиться в автомате, чтобы всем пассажирам хватило сдачи.
Входные данные:
В первой строке входного файла находится одно натуральное число N - количество покупок в автомате, которые были совершены в ходе испытания (1 ≤ N ≤ 50 000). Во второй строке находятся N натуральных чисел, каждое из которых ровно номинала монеты или купюры, которую использовал очередной программист для оплаты; каждый номинал может принимать одно из четырех значений: 5, 10, 50 или 100.

Исходные данные:
В выходной файл выведите одно число - минимальное количество монет в пять ужиків, которые надо было загрузить в автомат изначально, чтобы всем программистам хватило сдачи.

Примечание:
В первом примере одна монета в пять ужиків потребуется для сдачи первому программисту и 19 монет - третьему, но при сдаче третьему можно использовать ту монету, которую бросит второй программист, поэтому изначально в автомате достаточно 19 монет.
Во втором примере сдачу третьем программисту можно выдать, используя монету первого или второго покупателя, и поэтому не нужно загружать монеты в автомат изначально.
В третьем примере першоve программисту нужны девять монет сдачи, и все они должны изначально находится в автомате.

[Аватар]

На примере массива с данными. Замени массив на данные из файла

const n = 3;
      m: array[1..n] Of Byte = (5,5,10);
var i,j,xCount,xNow: Integer;
begin
  xCount:=0; xNow:=0;
  for i:=1 to n do begin
    j:=m[i] div 5 - 1;
    if j=0 then Inc(xNow)
    else begin
      Dec(xNow,j);
      if xNow<0 then begin
        Dec(xCount,xNow);
        xNow:=0;
      end;
    end;
  end;
  //В xCount результат
....

[min@y™]

какая странная задача...

[Злое Аниме]

Сообщение от Аватар

На примере массива с данными. Замени массив на данные из файла

const n = 3;
      m: array[1..n] Of Byte = (5,5,10);
var i,j,xCount,xNow: Integer;
begin
  xCount:=0; xNow:=0;
  for i:=1 to n do begin
    j:=m[i] div 5 - 1;
    if j=0 then Inc(xNow)
    else begin
      Dec(xNow,j);
      if xNow<0 then begin
        Dec(xCount,xNow);
        xNow:=0;
      end;
    end;
  end;
  //В xCount результат
....

Спасибо!

[Злое Аниме]

Что-то здесь неправельно

const n = 3;
      m: array[1..n] Of Byte = (5,5,10);
var i,j,xCount,xNow: Integer;
begin
  xCount:=0; xNow:=0;
  for i:=1 to n do begin
    j:=m[i] div 5 - 1;
    if j=0 then Inc(xNow)
    else begin
      Dec(xNow,j);
      if xNow<0 then begin
        Dec(xCount,xNow);
        xNow:=0;
      end;
    end;
  end;
  //В xCount результат
....

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Злое Аниме]

помогите От начала до конца))

[Аватар]

Дык если не можешь вместо массива файл использовать, да еще от начала до конца, то зачем тебе вообще олимпиадная задача?

[Злое Аниме]

Сообщение от Аватар

Дык если не можешь вместо массива файл использовать, да еще от начала до конца, то зачем тебе вообще олимпиадная задача?

Я сделал сам задачу ток в Delphi

[Serge_Bliznykov]

Сообщение от Злое Аниме

Я сделал сам задачу ток в Delphi

то, что сам сделал - это, конечно, молодец!

Если не секрет, а чем решение Аватара не устроило?
Хороший, достаточно простой и рабочий код на Паскале.
Его можно в любой Паскаль вставить, хоть во FPC, хоть в Turbo, хоть в Delphi, оно будет работать.

[Naive]

Сообщение от Serge_Bliznykov

а чем решение Аватара не устроило?

халявщики, сэр (с)