PASCAL ABC NET
дан массив , состоящий из n элементов, элементы массива -произвольные целые числа , распечатать элементы в 2 строки . в 1 строке элементы с не четными индексами , а во 2 строке элементы с четными индексами
Ответы
Ответ дал:
0
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
var s := a.Partition((v, i) -> i.IsEven);
s[0].Println;
s[1].Println;
end.
n= 10
24 31 -29 -21 32 23 -17 34 16 -25
24 -29 32 -17 16
31 -21 23 34 -25
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад