Терентий
6 год назад
На языке Pascal
Под б)
Спасибо
ОТВЕТЫ
Братислав
Jul 26, 2019
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
var n:=ReadInteger(Количество чисел в последовательности);
var a2:=ReadArrReal(Вводите числа,n).Batch(n div 2).ToArray;
a2[0].Interleave(a2[1].Reverse).Println
end.
Пример
Количество чисел в последовательности 6
Вводите числа 1.1 2.2 3.3 4.4 5.5 6.6
1.1 6.6 2.2 5.5 3.3 4.4
begin
var n:=ReadInteger(Количество чисел в последовательности);
var a2:=ReadArrReal(Вводите числа,n).Batch(n div 2).ToArray;
a2[0].Interleave(a2[1].Reverse).Println
end.
Пример
Количество чисел в последовательности 6
Вводите числа 1.1 2.2 3.3 4.4 5.5 6.6
1.1 6.6 2.2 5.5 3.3 4.4
296
Смежные вопросы:
