Напишите программу, которая находит в массиве количество элементов, равных максимальному....

Question

Напишите программу, которая находит в массиве количество элементов, равных максимальному.

Входные данные
Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 .

Выходные данные
Программа должна вывести два числа, разделив их пробелом: максимальный элемент массива и количество элементов массива, равных максимальному.

Примеры:
входные данные
6
1 2 3 2 3 3
выходные данные
3 3

Answer 1

Var a:array[1..10000] of integer;
n,i,max,k:integer; 
begin
readln(n);
for i:=1 to n do read(a[i]);
max:=a[1]; k:=1;
for i:=2 to n do 
 begin
 if a[i]>max
  then begin max:=a[i]; k:=1; end
  else if a[i]=max then k:=k+1;
 end;
writeln(max,' ',k);
end.

Пример:
6
1 2 3 2 3 3
3 3