ответ Счастливого плавания
http://excelpractic.ru/kak-postroit-grafik-v-excel.html
Const
n = 12;
Var
i,max,smax,kmax:integer;
a:array[1..n] of integer;
Begin
randomize;
writeln('Исходный массив: ');
for i:= 1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:4)
end;
writeln;
max:=a[1];
for i:= 2 to n do
if max<a[i] then max:=a[i];
writeln('max = ',max);
smax:=0;
kmax:=0;
for i:= 1 to n do
if a[i] = max then
begin
smax:=smax+max;
kmax:=kmax+1;
end;
WriteLn('kmax = ',kmax);
WriteLn('smax = ',smax);
End.