Серапион
4 год назад
Подсчитайте за один проход массива, Как узнать сколько его элементов равны максимальному элементу.Входные данныеНа вход программе сначала подается значение n100 — количество элементов в массиве. В следующей строке входных данных расположены сами элементы массива — целые числа, по модулю не превосходящие 30 000.Выходные данныеВыдайте количество искомых элементов массива.Примерывходные данные84 3 5 2 5 1 3 5выходные данные3
ОТВЕТЫ
Dmitrij
Oct 24, 2020
Var
A:array[1..100] of integer;
i,M,N,k:integer;
Begin
ReadLn(N);
M:=-30001;
k:=0;
For i:= 1 to N do
Begin
Read(A[i]);
if A[i]>M then
Begin
k:=0;
M:=A[i]
End;
if A[i]=M then k:=k+1
End;
WriteLn(k)
End.
A:array[1..100] of integer;
i,M,N,k:integer;
Begin
ReadLn(N);
M:=-30001;
k:=0;
For i:= 1 to N do
Begin
Read(A[i]);
if A[i]>M then
Begin
k:=0;
M:=A[i]
End;
if A[i]=M then k:=k+1
End;
WriteLn(k)
End.
841
Смежные вопросы:
