program den;
uses crt;
var m:array[1..20] of integer;
z,sch,i,nmax: integer;
begin
m[1]:=34; m[2]:=2; m[3]:=62; m[4]:=80; m[5]:=7;
m[6]:=34; m[7]:=2; m[8]:=62; m[9]:=80; m[10]:=7;
m[11]:=34; m[12]:=2; m[13]:=62; m[14]:=80; m[15]:=7;
m[16]:=34; m[17]:=2; m[18]:=62; m[19]:=80; m[20]:=7;
nmax:=0;
sch:=0;
clrscr;
for i:=1 to 20 do begin
{if m[i]=nmax then
sch:=sch+1;}
if m[i]>=nmax then
nmax:=m[i];
end;
for i:=1 to 20 do begin
if nmax=m[i] then
sch:=sch+1;
end;
writeln('max element massiva ',nmax);
writeln('chislo povtorenii elementa ',sch);
for i:=1 to 5 do
write(' a[',i,']= ',m[i]);
readln;
for i:=6 to 10 do
write(' a[',i,']= ',m[i]);
readln;
for i:=11 to 15 do
write(' a[',i,']= ',m[i]);
readln;
for i:=16 to 20 do
write(' a[',i,']= ',m[i]);
readln;
end.