Question

Хелп ми Паскаль. Как заполнить одномерный массив случайным образом с отрицательными числами и найти их сумму?

Answer 1

randomize;     
for i:=1 to 15 do
mas[i]:=random(40)-15;

Непонятно, что сложить, если ВСЕ числа то - 

for i:=1 to 15 do
sum:=mas[i]+sum;

Пример для 15 чисел в массиве

Answer 2

Конечно, я могу помочь с этим вопросом! Вот пример кода на Pascal, который создает и заполняет одномерный массив случайными отрицательными числами и вычисляет их сумму:

pascalCopy code
program RandomArray;

const
  SIZE = 10; // размер массива
  MIN_VALUE = -100; // минимальное значение случайных чисел
  MAX_VALUE = -1; // максимальное значение случайных чисел

var
  arr: array[1..SIZE] of Integer; // массив для хранения случайных чисел
  i, sum: Integer;

begin
  Randomize; // инициализация генератора случайных чисел

  // заполнение массива случайными отрицательными числами
  for i := 1 to SIZE do
    arr[i] := RandomRange(MIN_VALUE, MAX_VALUE);

  // вычисление суммы элементов массива
  sum := 0;
  for i := 1 to SIZE do
    sum := sum + arr[i];

  // вывод результата на экран
  Writeln('Массив:');
  for i := 1 to SIZE do
    Write(arr[i], ' ');
  Writeln;
  Writeln('Сумма элементов массива: ', sum);
  Readln;
end.

В этом примере используется функция RandomRange, которая генерирует случайное целое число в заданном диапазоне. В данном случае, мы используем ее для генерации случайных отрицательных чисел в заданном диапазоне от -100 до -1.

После заполнения массива случайными отрицательными числами, происходит вычисление суммы элементов массива с помощью цикла for. В конце, результат выводится на экран с помощью процедур Write и Writeln.

Надеюсь, это поможет! Если у вас есть какие-либо вопросы, не стесняйтесь задавать!