Найти максимальный элемент массива и сосчитать количество элементов равных ему.вывести это количество.

писал код для другого, но адаптировал под твою )

 

var  mas: array[1..1000] of integer;   i,a,n,c: integer;

begin  n: =0;   writeln ('введите количество элементов массива');   readln (c);   randomize;   write ('массив - ');   for i : = 1 to c do    begin      mas[i] : = random(c);       write(' ', mas[i], ' ');     end;     writeln;   begin      for i : = 1 to c do        if mas[i] > mas[i + 1] then swap(mas[i], mas[i +1]);     end;   for i: = 1 to c do begin      mas[i]: =mas[i+1];       a: =mas[i];   end;   writeln ('максимальный элемент массива ',mas[i]);     for i: =1 to c do      if a=mas[i] then inc(n);       write ('количество равных элементов массива ',n); end.

program massivmaxcount;

uses crt;

const n=1000;

var j,m,c: integer;

 

var a: arrray [1..n] of real;

begin

      randomize;

      clrscr;

      write('введите количество элементов массива n< 1000: ');

      readln(m);

      c: =0;  

      max: =a[1];

      for i: =1 to m do 

            begin

                a[i]: =random(20)+5;

                if (a[i]> max) tnen max: =a[i] 

            end;

  for i: =1 to m do  

          if (a[i]=max) then c: =c+1;

                  writeln('количество элементов равных наибольшему: ',c);

                    readkey;

                     

end. 

 

 

Const   a: array[1..10,1..5] of integer = (   (1,2,3,4,5),   (2,2,3,4,5),   (3,2,3,4,5),   (4,2,3,4,5),   (5,2,3,4,5),   (6,2,3,4,5),   (7,2,3,4,5),   (8,2,3,4,5),   (9,2,3,4,5),   (10,2,3,4,5) ); var   i,j: integer; begin writeln; for i : = 1 to 10 do begin   for j: = 1 to 5 do     write(a[i,j],' ');   writeln; end; end.