Клавдий
6 год назад
Напишите программу, которая находит в массиве количество элементов, равных максимальному.Входные данныеПервая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 .Выходные данныеПрограмма должна вывести два числа, разделив их пробелом: максимальный элемент массива и количество элементов массива, равных максимальному.Примеры:входные данные61 2 3 2 3 3выходные данные3 3
ОТВЕТЫ
Ана
Oct 24, 2020
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
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
731
Смежные вопросы:
