Question

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

Answer 1

Const
  nn=100;

var
  i,n,sn,sp:integer;
  a:array[1..nn] of integer;

begin
  Write('n = '); Read(n);
  Randomize;
  sn:=0; sp:=0;
  for i:=1 to n do begin
    a[i]:=Random(21)-10;
    Write(a[i],' ');
    if a[i]>0 then sp:=sp+a[i]
    else
      if a[i]<0 then sn:=sn+a[i]
    end;
  Writeln;
  Writeln('Сумма отрицательных ',sn,', сумма положительных ',sp)
end.

Пример
n = 13
8 4 10 6 -2 2 -9 -9 6 3 2 4 -7
Сумма отрицательных -27, сумма положительных 45

Answer 2

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(10,-10,10);a.Println;
var (sum1,sum2):= (a.Where(t -> t > 0).Sum,a.Where(t -> t < 0).Sum);
Writeln(sum1, ' ', sum2);
end.

Пример:
5 -2 -3 6 -7 -8 -7 7 -1 4
22 -28

Answer 3

Создание программы для работы с массивом случайных чисел

Для создания программы, которая создает массив случайных чисел в заданном диапазоне и находит сумму положительных и отрицательных элементов массива, можно использовать язык программирования Python и его библиотеку NumPy.

Вот пример программы на Python, которая реализует указанную функциональность:

import numpy as np

# Создание массива случайных чисел в диапазоне (-10, 10)
random_array = np.random.randint(-10, 11, size=10)

# Нахождение суммы положительных и отрицательных элементов массива
positive_sum = np.sum(random_array[random_array > 0])
negative_sum = np.sum(random_array[random_array < 0])

print("Массив случайных чисел:", random_array)
print("Сумма положительных элементов:", positive_sum)
print("Сумма отрицательных элементов:", negative_sum)

Этот код использует библиотеку NumPy для создания массива случайных чисел в заданном диапазоне и нахождения суммы положительных и отрицательных элементов массива.