Задача из С2(ЕГЭ)
Опишите на русском языке или одном из языков программирования алгоритм подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементов.
Вот моя программа:
const N = 30;
var a:array[1..N] of integer;
max,l,i : integer;
begin
max := a[i];
for i:=1 to N do
if a[i] < a[i+1] then a[i+1]:= max ;
for i:=1 to N do
if a[i] = max then
l:=l+1;
writeln(l);
end.
где здесь ошибка?