Var
a:array[1..1000000]of integer;
i,min,n,c:integer;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
if i = 1 then
min:=a[i];
if a[i]<min then
begin
min:=min+a[i] ;
a[i]:=min - a[i];
min:=min - a[i];
c:=i;
end;
end;
writeln('a[',c,']=',min);
end.
Число должно раскладываться на сумму 15 и 9. Или - найдутся такие натуральные (или 0) числа k и m, что
X = 15*k + (15-6)*m = 15*k + 6*m
как найти - делить с остатком на 15, потом на 6, если остаток = 0 то нашлись.
480 = 15 * 32 + 6 * 0 + 0
115 = 15*7 + 10 = 15*7 + 6 * 1 + 4
555 = 15 * 15 + 6 * 0
160 = 15 * 10 + 6*1 + 4
220 = 15 * 14 + 6 * 1 + 4
ответ. 480 и 555
1) Объем файла= 2*16* 90* 48000=138240000 бит
Скачивание.
<span>Интернет-серфинг</span>
Ответ:2175 кб
Объяснение: За 40 сек. Передается файл размером 1450 КБ, значит надо 1450:40, этим действием мы получим скорость соединения и эту скорость мы умножаем на 60 сёк и получаем 2175 КБ.!