заполнить массив с клавиатуры и найти ( за один проход)  количество элементов имеющих максимальное значение

Pascal:const n = 10;var a:array [1..n] of integer;     i,max,c:integer;begin clrscr; readln (a[1]); max:=a[1]; c:=1; for i:=2 to n do  begin   readln (a[i]);   if a[i]>max then    begin     max:=a[i];     c:=1;    end    else if a[i]=max then inc(c);  end; writeln ('Kol-vo: ',c);end.C++:#include <iostream>using namespace std;int main(){  int a[10];  int c = 0,max;  cin >>a[0];  max = a[0];  for (int i = 1; i<10; i++)  {    cin >>a[i];    if (a[i]>max)    {      max = a[i];      c = 1;    }    else if (a[i]==max)             ++c;  }  cout <<"KOL_VO: " <<c <<endl;  return 0;}