Задача.
Опишите на русском языке или одном из языков программирования алгоритм подсчета числа элементов равных максимальному в числовом массиве из 30 элементов.

## Код:
```
CONST N=30;
  VAR  a: ARRAY N OF INTEGER;  
   Num,Max, i: INTEGER;

PROCEDURE OtvetNa1ball;
 BEGIN 
    Max:=a[0];
    FOR i := 0 TO N - 1 DO Max := MAX(a[i],Max) END; 
    Num:=0;
    FOR i := 0 TO N - 1 DO 
      IF a[i]=Max THEN INC(Num) END
    END
  END OtvetNa1ball;

PROCEDURE OtvetNa2balla;
 BEGIN 
    Max:=a[0];
    Num:=1;
    FOR i := 1 TO N - 1 DO 
      IF a[i]>Max THEN 
        Max:=a[i]; Num:=1
      ELSIF a[i]=Max THEN 
        Num:=Num+1;
      END
    END
  END OtvetNa2balla;
```

Как вы думаете, стоит ли такая экономия на спичках оценки в два раза выше? Я понимаю, если бы речь шла о файлах.