Question

Ребята, нужна ваша помощь!!!
1.Найдите количество положительных и отрицательных элементов в массиве а(10)
2.Найдите в массиве сумму минимального и максимального в массиве а(10)

Answer 1

PascalABC.NET 3.3

1.
begin
  var a:=ArrRandom(10,-20,20).Println;
  writeln('количество положительных элементов = ',a.Where(x-x>0).Count);
  writeln('количество отрицательных элементов = ',a.Where(x-x<0).Count);
end.

Пример:
7 6 -20 -12 -16 3 -4 -8 -4 1
количество положительных элементов = 4
количество отрицательных элементов = 6

2.
begin
  var a:=ArrRandom(10,0,50).Println;
  writeln('min+max = ',a.Min+a.Max);
end.

Пример:
18 5 45 43 50 37 32 17 31 24
min+max = 55