Вопрос школьника по предмету Информатика
Напишите программу, которая находит в массиве количество элементов, равных максимальному.
Входные данные
Первая строка содержит размер массива 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
Похожие вопросы от пользователей
1) Статья была напечатана под широким аншлагом.
2) Декабристы и их сообщники вышли на Сенатскую площадь.
3) Его кровопотливый труд увенчался успехом.
4) Все демократические силы объединились воедино.
5) Писатель пишет о своем герое.