Напишите программу, которая находит в массиве количество элементов, равных максимальному.
Входные данные Первая строка содержит размер массива 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
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
