1)
var
i,n,m,c:integer;
a:array [1..10000] of integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
m:=a[1];
for i:=2 to n do
if a[i]>m then m:=a[i];
c:=0;
for i:=1 to n do
if a[i]=m then c:=c+1;
write(c);
end.
2)
var
a:array [1..5,1..5] of integer;
i,j,s:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
read(a[i,j]);
s:=0;
for i:=5 downto 1 do
if (a[i,6-i]>0) then s:=s+a[i][6-i];
write(s);
end.
3)
var
a:array [1..1000] of string;
ac:integer;
s:string;
procedure words(s:string);
var
i:integer;
x:string;
begin
s:=s+' '; ac:=0;
for i:=1 to length(s) do
begin
if (s[i]<>' ') then x:=x+s[i];
if (s[i]=' ') and (length(x)<>0) then
begin
ac:=ac+1;
a[ac]:=x;
x:='';
end;
end;
end;
begin
readln(s);
words(s);
write(ac);
end.
