<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-50,100); a.Println;
var im:=a.IndexMin;
Writeln('Номер минимального элемента- ',im+1,', значение ',a[im]);
a:=(a[:im]+a[im+1:]).ToArray; a.Println
end.
<u>Пример</u>
-14 -21 2 -29 45 -48 81 22 0 5
Номер минимального элемента- 6, значение -48
-14 -21 2 -29 45 81 22 0 5
Var i,k:integer;
rez:real;
begin
for i:=10 to 99 do
if (i mod 2)=0 then
begin
k:=k+1;
rez:=rez+i;
end;
rez:=rez/k;
writeln(rez:0:1);
<span>end.</span>
Сергей .Т.к. чистая логика.Если сергей принимал то виктор нет , если виктор нет то и александр нет.Остаёться токо сергей
1. А.
2. В.
3. В.
4. N = 2^i.
16 = 2^i.
I = 4 бита.
Ответ: А.
5. Б.
6. А.
7. Б.
8. Г.
9. V = H*T*I*K.
T = V/H*I*K = (60*2^23)/22000*16*2 = 15*2^25/2^5*22000 = 3*2^20/4400 = 3 145 728/4400 ~714,9 секунд ~ 11,9 минут ~ 12 минут.
Ответ: Б.
10. N = 2^i.
N = 2^8.
N = 256.
Ответ: В.