1 Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а также их количество.

2 Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве нечетные числа в порядке убывания их индексов, а также их количество.

3 Дан целочисленный массив размера N. Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем все содержащиеся в данном массиве нечетные числа в порядке убывания их индексов.

4 Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве числа, кратные 3 в порядке возрастания их индексов, а также их количество и сумму.

5 Дан массив размера N. Вычислить среднее арифметическое элементов массива и вывести результат.

Ответы

Сауле121 12.10.2020 22:06

// PascalABC.NET 3.6

begin

var n := ReadInteger('N =');

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

a.Println;

a.Where(p -> p.IsEven).Println.Count.Println; // 1

a.Where(p -> p.IsOdd).Reverse.Println.Count.Println; // 2

(a.Where(p -> p.IsEven) + a.Where(p -> p.IsOdd).Reverse).Println; // 3

var s := a.Where(p -> p mod 3 = 0).Println; // 4

Println(s.Count, s.Sum); // 4

a.Average.Println // 5

end.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

youngest1111 27.11.2021 19:29

Никита11111114957558 27.11.2021 19:28

F1Na1Ik 27.11.2021 19:27

Bios:Life below Help me please thank you...

Ekaaaterina 27.11.2021 19:27

затура56 30.04.2020 18:36

soos4 30.04.2020 18:36

Lollital 04.11.2020 11:50

SpaniGar 04.11.2020 11:51

Silvertrue 12.05.2020 09:32

Сделайте у меня СоР по этой теме...

xxx158 26.07.2019 20:50