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

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]gt;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 lt;iostreamgt;
using namespace std;

int main()

  int a[10];
  int c = 0,max;
  cin gt;gt;a[0];
  max = a[0];
  for (int i = 1; ilt;10; i++)
 
    cin gt;gt;a[i];
    if (a[i]gt;max)
   
      max = a[i];
      c = 1;
   
    else if (a[i]==max)
             ++c;
 
  cout lt;lt;"KOL_VO: " lt;lt;c lt;lt;endl;
  return 0;