N=int(input('задайте размер массива '));
<span>lst=input().split(' ');
</span><span>mx=0;
</span><span>for i in range (0,n):
</span><span> if (int(lst[i])>mx):
</span><span> mx=int(lst[i]);
</span><span> k=1;
</span><span> else:
</span><span> if (int(lst[i])==mx):
</span><span> k+=1;
</span><span>print(mx,k);
</span>задайте размер массива 10
<span>-15 10 14 7 21 19 13 21 11 17
</span><span>21 2
</span>
<em>И снова - приятно, когда кратко))
// PascalABC.NET 3.2, сборка 1483 от 14.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var w:=ReadAllText('in.txt'); w.Println;
var s:=w.MatchValues('\b[A-Za-z]+\b').JoinIntoString(' ');
s.Println; WriteAllText('Eng.txt',s);
s:=w.MatchValues('\b[А-Яа-яЁё]+\b').JoinIntoString(' ');
s.Println; WriteAllText('Rus.txt',s);
end.
<u>Пример (читаем in.txt, пишем в Eng.txt и Rus.txt)</u>
The Флегматичная ЭтА QuICk веРБлЮдица broWN ЖУЕТ fox JuMpS у подъезда over The ЗаСыХающИЙ LAZY ГорькиЙ dog шиПоВНиК
The QuICk broWN fox JuMpS over The LAZY dog
Флегматичная ЭтА веРБлЮдица ЖУЕТ у подъезда ЗаСыХающИЙ ГорькиЙ шиПоВНиК
Управляющий объект: Человек
Объект управления 1: Кнопка
Объект управления 2: Часы
Цель управления: Вовремя дать звонок учащимся
Переведем сначала все в двоичную:
88.45₁₀ = 64 + 16 + 8 + 45/100 = 1011000.001110011001₂
1 011 000.001 110 011 001₂ = 130.1421₈
101 1000.0011 1001 1001₂ = 58.399₁₆