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

Вопрос школьника по предмету Информатика

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

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

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

Ответ учителя по предмету Информатика

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