Вот, держи :)
................................
//PascalABC.NET 3.2 сборка 1318
Var
ar:array of integer;
i,n,min,k:integer;
begin
readln(n);
setlength(ar,n);
min:=integer.MaxValue;
for i:=0 to n-1 do
begin
readln(ar[i]);
if min>ar[i] then min:=ar[i];
end;
for i:=0 to n-1 do
if ar[i]=min then inc(k);
writeln(k);
end.
Пример ввода:
3
1
2
1
Пример вывода:
2
В алфавит языка Паскаль не входит пункт в) Русские строчные и прописные буквы.
Заменим то, что знаем. Я буду конечные буквы писать маленькими.
ПДХьгЕЛТГПЛУЪДПГмУХУБгЪБЛсЦВДчУДмсяЛТГЪХГчьЛТУВкД
Очевидно, что первое слово - "деньги", то есть Д->П, Е->Д, Н->Х, И->Е
деньги ЛТГдЛУЪеПГмУнУБгЪБЛсЦВечУемсяЛТГЪнГчьЛТУВке
Выделим слово ЛсЦВечУемся, которое, видимо, значит "встречаемся".
В->Л, Т->Ц, Р->В, А->У
деньги вТГдваЪеПГманаБгЪБ встречаемся вТГЪнГчьвТарке
Выделим слово нГчь, которое, очевидно, означает "ночь".
О->Г
деньги вТодваЪеПоманаБгЪБ встречаемся вТоЪночьвТарке
Похоже, что фраза вТоЪночьвТарке означает "в полночь в парке"
П->Т, Л->Ъ
деньги в подвале Пома на БглБ встречаемся в полночь в парке
Д->П, У->Б
Теперь всё ясно:
деньги в подвале дома на углу встречаемся в полночь в парке
Всё!
Надо посчитать сколько всего тыс. руб оборот у всех и потом считать сколько процентов составляет оборот кажого предприятия
