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

Answer 2

1. Найдите количество положительных и отрицательных элементов в массиве а(10)

Для нахождения количества положительных и отрицательных элементов в массиве а(10), нужно пройти по всем элементам массива и подсчитать количество положительных и отрицательных чисел.

a = [1, -2, 3, -4, 5, -6, 7, -8, 9, -10]
positive_count = 0
negative_count = 0

for num in a:
    if num > 0:
        positive_count += 1
    elif num < 0:
        negative_count += 1

positive_count, negative_count

В данном примере массив `a` содержит 10 элементов. После выполнения кода, мы получим количество положительных элементов равное 5 и количество отрицательных элементов равное 5.

Ответ: - Количество положительных элементов в массиве а(10): 5 - Количество отрицательных элементов в массиве а(10): 5

2. Найдите в массиве сумму минимального и максимального элементов в массиве а(10)

Для нахождения суммы минимального и максимального элементов в массиве а(10), нужно найти минимальный и максимальный элементы в массиве, а затем сложить их.

a = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
min_element = min(a)
max_element = max(a)
sum_min_max = min_element + max_element

sum_min_max

В данном примере массив `a` содержит 10 элементов. После выполнения кода, мы получим сумму минимального элемента (1) и максимального элемента (10), которая равна 11.

Ответ: - Сумма минимального и максимального элементов в массиве а(10): 11