[Мы решаем ваши проблемы с Си и Паскалем ]
Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08
1026
Type
 TVector = array[1..5000] of LongInt;
Var
  A         :TVector;
  I,J,N,L,S :LongInt;
Begin
  FillChar(A,SizeOf(A),0);
  Readln(N);
  For I:=1 to N do begin
    readln(L);
    Inc(A[L]);
  End;
  Readln;
  Readln(N);
  For I:=1 to N do begin
    Readln(L);
    S:=0;
    J:=0;
    While (S<L) do begin
      Inc(J);
      S:=S+A[J];
    End;
    Writeln(J);
  End;
End.

Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008)
Просмотров: 854