Question

Заполнить массив состоящий из 10 элементов случайными целыми числами из промежутка [-50;50]. Выведите на экран и вычислите сумму всех отрицательных элементов. Как в программе паскаль. Заранее огромное спасибо с:

Answer 1

Const
  n = 10;

var
  x: array[1..n] of integer;
  i, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  s := 0;
  for i := 1 to n do
  begin
    x[i] := Random(101) - 50;
    Write(x[i]:4);
    if x[i] < 0 then s := s + x[i]
  end;
  Writeln;
  Writeln('Сумма отрицательных элементов равна ', s);
end.

Тестовое решение:
Элементы массива
  50  36   5 -13  19  -3  50  -5 -39  12
Сумма отрицательных элементов равна -60

Answer 2

Заполнение массива случайными целыми числами

Для заполнения массива, состоящего из 10 элементов случайными целыми числами из промежутка [-50;50], можно использовать следующий код на языке Pascal:

program RandomArray;
var
  arr: array[1..10] of integer;
  i: integer;
begin
  Randomize; // Инициализация генератора случайных чисел

// Заполнение массива случайными числами
  for i := 1 to 10 do
  begin
    arr[i] := Random(101) - 50; // Генерация случайного числа от -50 до 50
  end;

// Вывод элементов массива на экран
  writeln('Элементы массива:');
  for i := 1 to 10 do
  begin
    writeln(arr[i]);
  end;

// Вычисление суммы отрицательных элементов
  var sum: integer := 0;
  for i := 1 to 10 do
  begin
    if arr[i] < 0 then
    begin
      sum := sum + arr[i];
    end;
  end;

// Вывод суммы отрицательных элементов на экран
  writeln('Сумма отрицательных элементов: ', sum);
end.

Объяснение кода

1. Сначала мы объявляем массив `arr` с размерностью 10 и переменную `i` для использования в циклах. 2. Затем мы вызываем функцию `Randomize`, чтобы инициализировать генератор случайных чисел. 3. В цикле `for` мы заполняем массив `arr` случайными числами от -50 до 50 с помощью функции `Random(101) - 50`. Функция `Random(101)` генерирует случайное число от 0 до 100, а вычитание 50 смещает диапазон к -50 до 50. 4. После заполнения массива мы выводим его элементы на экран с помощью цикла `for` и команды `writeln`. 5. Затем мы инициализируем переменную `sum` для хранения суммы отрицательных элементов и используем еще один цикл `for`, чтобы пройти по всем элементам массива. 6. Внутри цикла мы проверяем, является ли текущий элемент отрицательным (`arr[i] < 0`). Если это так, мы добавляем его к сумме `sum`. 7. Наконец, мы выводим сумму отрицательных элементов на экран с помощью команды `writeln`.

Пример вывода

Элементы массива:
-10
25
-30
40
-5
-15
20
-35
45
-50
Сумма отрицательных элементов: -115

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