Question

Создать программу на pascal. Нужно создать программу на паскале, в которой будут выполнены с 1 по 5 пункт

Answer 1

##

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

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

a.Println;

a.Where(p -> p.IsOdd).Sum.Println; // 1

var k := a.Count(p -> p.IsEven); // число четных

Writeln('Четных - ', k, ' нечетных - ', n - k); // 2

a.Where(p -> p mod 4 = 0).Product(p -> int64(p)).Println; // 3

a.Where(p -> p mod 10 = 5).Sum.Println; // 4

a.Min.Print // 5