Найти kmax (количество максимальных) в одномерном числовой массиве (паскаль)

Вопрос школьника по предмету Информатика

Найти kmax (количество максимальных) в одномерном числовой массиве (паскаль)

Ответ учителя по предмету Информатика

var a:array[0..10000] of integer;

var max,k,n,i: integer;

begin

read(n); // количество чисел в массиве

for i:=1 to n do begin

read(a[i]); // вводим массив

max:=a[1];

end;

for i:=2 to n do

if a[i]>max then max:=a[i];

for i:=1 to n do

if a[i]=max then k:=k+1;

write(k);

end.