Pascal. ввести массив 15 случайных чисел. вывести - вопрос №816785115 от spacgumenmari1 15.04.2023 05:37

Question

Информатика: Pascal. ввести массив 15 случайных чисел. вывести на экран элементы только с чёрными индексами. 25

spacgumenmari1 · Answer

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var n:=15;
var a:=ArrRandom(n,-99,99); a.Println;
Range(2,n,2).Select(t->a[t-1]).Println
end.

Пример
21 -19 -93 -18 -16 -58 -91 21 -74 85 -60 -16 68 31 72
-19 -18 -58 21 85 -16 31