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

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.