1843 год построена первая телеграфная линия<span> в </span>России<span> (Петербург Царское Село).
</span>
Значит,сначала,заполняем банку с 9л,потом отливаем в банку 2л,далее выливаем с двух литров,далее опять с 9л в два потом с 2л выливаем,и ещё раз с 9л отливаем в 2л,из двух выливаем
var
a:array[1..100] of integer;
x,i,n,min:integer;
begin
readln(n);
x:=1;
read(a[1]);
min:=a[1];
for I:=2 to n do
begin
read(a[i]);
if a[i]<min then
begin
min:=a[i];
x:=1
end;
if a[i]=min then x:=x+1;
end;
writeln(x)
end.
Комментарий: n- количество элементов массива, вводится с клавиатуры в диапазоне от 1 до 100