var
a:array[1..31] of real;
i,k:integer;
min:real;
begin
min:=50;
for i:=1 to 31 do
begin
readln(a[i]);
if a[i]<min then min:=a[i];
end;
k:=0;
for i:=1 to 31 do
if a[i]=min then k:=k+1;
writeln(k);
end.
Сначала массив будет
состоять из чисел от 0 до 9 в обратном направлении: 9, 8, 7, 6, 5, 4, 3, 2, 1,
0
<span>Потом, из числе от 0 до 9 в прямом направлении: 0, 1,
2, 3, 4, 5, 6, 7, 8, 9</span>
Задачу удобно решать с помощью кругов Эйлера (см. прилагаемый файл).
К1+К2+К3 = 15000
К2 = 8000
К2+К3 = 12000
К1 = 15000-12000 = 3000
К1+К2 = 3000+8000 = 11000
Ответ: 11000