// PascalABC.NET 3.0, сборка 1088
function InitA(n:integer):array of integer;
begin
Result:=ArrRandom(n,-31,45)
end;
procedure GetA(var a:array of integer);
begin
a:=InitA(ReadInteger('Количество элементов в массиве А: '));
end;
procedure PutM(c:char; a:array of integer);
begin
Writeln('*** Массив '+c+'[',a.Length,'] ***',#13#10,a);
end;
function FormB(a:array of integer):array of integer;
begin
Result:=Range(0,a.Length-1,2).Select(x->a[x]).ToArray
end;
function MinEl(a:array of integer):integer;
begin
Result:=a.Min
end;
begin
var mA:array of integer;
GetA(mA); PutM('A',mA);
var mB:=FormB(mA); PutM('B',mB);
Writeln('Минимальный элемент в массиве В равен ',MinEl(mB))
end.
<em><u>Тестовое решение:</u></em>
Количество элементов в массиве А: 15
*** Массив A[15] ***
[-22,0,-9,17,14,3,38,-18,-28,-17,28,13,1,1,26]
*** Массив B[8] ***
[-22,-9,14,38,-28,28,1,26]
Минимальный элемент в массиве В равен -28
Program abc;
var
n, i: integer;
s: real;
begin
write('Введите количество чисел: ');
readln(n);
for i := 1 to n do
s := s + 1 / i;
write('Сумма обратных чисел = ', s);
end.
I = 1.5 Кбайт = 12288 бит
Всего 2048 символов, найдём i.
i = 12288 / 2048 = 6
i = 6
N = 2 ** i
N = 64
Ответ: i = 6, N = 64.
Если весь путь 61км, а по пути озеро пересекал шириной в 5 км, получается вся остальная дорога - суша. 61-5=56 км по суше.
S=vt. 56км=70км/ч*t. t=56/70=8/10=0,8часов=0,8*60минут=48 минут. (по суше ехал).
5 км по воде он проплывет за t=S/v. так как скорость по воде 10 км/ч(v), а путь 5 км(S), 5км делим на 10км/ч = 5/10=0,5 часов=0,5*60минут=30 минут.
Всего ему понадобится 48+30= 78 минутам.