Pascal. ввести массив 15 случайных чисел. вывести - вопрос №158167174 от karolinamurzak 01.12.2022 18:30

Question

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

karolinamurzak · 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