[Мы решаем ваши проблемы с Си и Паскалем ]
Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08
1025
{12.54}
Var
  A:Array[0..102] of LongInt;
  N,I,J,V:Longint;
Begin
  Readln(N);
  For I:=1 to N do
    Read(A[I]);
  For I:=1 to N do
    For J:=1 to N-1 do
      If A[J]>A[J+1] then begin
        V:=A[J+1];
        A[J+1]:=A[J];
        A[J]:=V;
      End;
  V:=0;
  For I:=1 to (N div 2) + 1 do
    V:=V+(A[I] div 2)+1;
 Write(V);
End.
Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008)
Просмотров: 856