program ghh;

var i, j, k: Integer;

ma: array[1..20] of integer;

begin

j:=0;

k:=0;

for i:=1 to 20 do

begin

ma[i]:= random(10);

if ma[i] > j then

j:= ma[i]

end;

for i:=1 to 20 do

begin

if ma[i] = j then

k:= k + 1;

end;

WriteLn(k)

end.

Ответ:

var

a:array[1..100] of integer;

max,i,n:integer;

begin

Randomize;

 for i:=1 to 100 do

  begin

   a[i]:=random(100);

   write(a[i],' ');

  end;

  max:=1;

   for i:=2 to 100 do

    begin

     if a[i]>max then

       max:=a[i];  

    end;

        for i:=1 to 100 do

    begin

     if a[i]=max then

       n:=n+1;

    end;

   writeln(' ');

   write(n,' Количество элементов массива равных максимальному')

end.

Объяснение: