PascalABC.NET 3.3
begin
writeln('1:');
var a1:=ArrRandom(10,-20,20); a1.Println;
Write('Положительные элементы: ');
a1.Where(x->x>0).Println;
writeln('2:');
var a2:=ArrRandom(8,1,20); a2.Println;
var k:=a2.Where(x->odd(x)).Count;
writeln('Количество нечетных элементов = ',k);
writeln('3:');
var a3:=ArrRandom(10,5,25); a3.Println;
writeln('Среднее арифметическое = ',a3.Average);
writeln('4:');
var a4:=ArrRandom(10,1,25); a4.Println;
var s:=a4.Where(x->odd(x)).Sum;
writeln('Сумма нечетных элементов = ',s);
writeln('5:');
var a5:=ArrRandom(8,-50,50); a5.Println;
k:=a5.Where(x->x<0).Count;<br> writeln('Количество отрицательных элементов = ',k);
var p:=a5.Where(x->x>0).Aggregate(1,(p,x)->p*x);
writeln('Произведение положительных элементов = ',p);
end.
Пример:
1:
14 -3 -17 19 -13 12 -6 -5 7 -7
Положительные элементы: 14 19 12 7
2:
6 8 6 14 3 12 18 8
Количество нечетных элементов = 1
3:
11 16 24 11 5 11 12 14 5 5
Среднее арифметическое = 11.4
4:
10 21 18 10 2 22 12 15 20 14
Сумма нечетных элементов = 36
5:
-43 -36 -6 -1 27 27 -15 3
Количество отрицательных элементов = 5
Произведение положительных элементов = 2187