Дан массив целых чисел из 50 элементов. найдите ср. - вопрос №509447183 от altynai0504 25.12.2022 06:14

Question

Информатика: Дан массив целых чисел из 50 элементов. найдите ср. арифметическое элементов , имеющих черный индекс.

altynai0504 · Answer

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

var a := ArrRandom(50, -99, 99);

a.Println;

a[1::2].Average.Println

end.

-93 66 -7 -12 -1 -21 -56 64 36 64 -45 12 13 -22 -40 -80 10 -77 -82 10 -94 -78 43 14 18 77 -90 -66 12 82 -66 17 33 77 -20 -51 -26 30 -92 74 7 34 76 98 11 -12 45 -23 13 5913.44