Ответ на 2: Казахстан
На первый: напишите своё имя.
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=15;
var a:=ArrRandom(n,-49,49); a.Println;
var b:=a.Select(t->2*t).ToArray; b.Println;
var max:=Range(3,n,3).Select(i->b[i-1]).Max;
Writeln('Искомый элемент: ',max)
end.
<u>Пример</u>
-39 -33 -3 -4 -49 -20 -48 -44 -13 -3 -13 6 -6 -20 17
-78 -66 -6 -8 -98 -40 -96 -88 -26 -6 -26 12 -12 -40 34
Искомый элемент: 34
Программа написана на Python 3.6
a = input().split() #Вводятся элементы через пробел
a = [float(i) for i in a]
a.append(min(a) - 1)
a.append(min(a))
iMax = a.index(max(a))
for i in range(len(a) - 1, iMax + 1, -1):
a[i], a[i - 1] = a[i - 1], a[i - 2]
a[iMax + 1] = int(input())
for i in range(len(a) - 1, iMax, -1):
a[i], a[i - 1] = a[i - 1], a[i - 2]
a[iMax] = int(input())
print(' '.join([str(i) for i in a]))
Странное задание.
var s:string;
begin
s:='ценая вещь';
s:=copy(s,1,3)+copy(s,3,8);
<span>end.
Как-то так, наверное.</span>
128 Гб= 131072 Мб= 134217728 Кбайт= 137438953472 байт
64 Гб= 65536 Мб
32Кб= 32768 Б