Дан массив размера N. Найти номер его первого локального минимума (локальный минимум — это элемент, который меньше любого из своих
соседей). Решение на Питоне

1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.

Однако удобнее использовать специализированные менеджеры загрузки файлов (например, FlashGet, GoIZilla, ReGet и др.). Такие менеджеры позволяют увеличить скорость загрузки за счет разбиения файлов на части и одновременной загрузки всех частей. Кроме того, они позволяют продолжить загрузку файла после разрыва соединения с сервером, содержат средство поиска файла на других серверах файловых архивов, позволяют архивировать файлы в процессе их загрузки и так далее.

Пользователю предоставляется в числовом и графическом виде подробная информация о процессе загрузки файла (текущая и средняя скорость загрузки, процент выполнения загрузки, ориентировочное время загрузки и др.).

Менеджеры загрузки файлов интегрируются в браузеры и при активизации ссылки на файл в окне браузера начинают процесс его загрузки.