l3e3_6EVM

program l3e3_6EVM;
{Ivan Ryvonenko,PM-12}
{V14}
{find num of i:a[i]>=a[1..i-1]}
{using functions with transferring of  parameters }
uses crt;
type
  vector=array [1..52] of integer;
var
  b:vector;
  num,m,i:integer;

procedure fill_array(var a:vector; n:integer);
var
  i:integer;
begin
  writeln('Enter values of array''s elements:');
  for i:=1 to n do
  begin
    write('a[',i,'] = ');
    readln(a[i]);
  end;
  writeln;
end;

procedure output_array(var a:vector; n:integer);
var
  i:integer;
begin
  write('    a: ');
  for i:=1 to n do
    write(a[i],' ');
  writeln;
end;


function get_n:integer;
var
  fl:integer;
begin
  writeln;
  fl:=0;
  repeat
    write(' Enter number of elements of array (1<n<52) : n = ');
    readln(n);
    if ((n>52)or(n<2)) then
      writeln('the input is incorrect.try again')
    else fl:=1;
  until (fl<>0);
  get_n:=n;
end;

function find_num(var a:vector; n:integer):integer;
var
  num,i,max:integer;
begin

  num:=0;


  max:=a[1];
  for i:=2 to n do
    if a[i]>=max then
    begin
      inc(num) ;
      if a[i]<>max then
        max:=a[i];
    end;
  find_num:=num;
end;

begin
  clrscr;

  m:=get_n;

  fill_array(b,m);
  output_array(b,m);

  num:=find_num(b,m);


  writeln(num);

  readln;
end.