[Berusfab]

Дан целочисленный вектор А(n). Подсчитать количество нулевых элементов вектора, предшествующих последнему максимальному элементу.

Количество вводится в edit1, матрица должна вводиться в компонент StringGrid1, количество нулевых элементов должно выводиться в Edit2
Что нужно изменить?

Код:

 cоnst nmax = 100; 
 var a:array[1..nmax] of real; 
 mx:integer; 
 count:integer; 
 i,n:integer; 
 begin 
 write('n='); 
 readln(n); 
 for i:=1 to n do 
 begin 
 write('[',i,']='); 
 readln(a); 
 end; 
 writeln('BeKTop:'); 
 mx:=1; 
 for i:=1 to n do 
 begin 
 if a>=a[mx] then mx:=i; 
 write(a); 
 end; 
 writeln; 
 count:=0; 
 Writeln('# of Max:',mx,' Value: ',a[mx]); 
 for i:=1 to mx do 
 if a=0 then count:=count+1; 
 writeln('Count of zero before Maximum:',count); 
 readln; 
 end.