Question

PASCAL построить массив из 100 случайных значений принадлежащих диапозону (-k m) организовать вывод массива на экран чтобы каждое значение было на новой строке в зависимоси от чётности k и m. сделать следующее задание 1) высчитать сумму положительных элементов массива 2) высчитать сумму отрицательных чисел массива 1: k*m нечётное 2: k*m чётное

Answer 1

Ответ:

PascalABC

Объяснение:

begin

   WriteLn('Введите значение k: ');

   var k := ReadInteger;;

   WriteLn('Введите значение m: ');

   var m := ReadInteger;;

   var a := ArrRandomInteger(100, -k, m);

   a.Print(NewLine); WriteLn;

   if ((k * m) mod 2 = 0) then WriteLn('k * m - четное. Сумма отрицательных элементов равна ', a.Where(x -> x < 0).Sum)

     else WriteLn('k * m - нечетное. Сумма положительных элементов равна ', a.Where(x -> x > 0).Sum);

end.

Answer 2

Для построения массива из 100 случайных значений, принадлежащих диапазону (-k, m) в языке Pascal, можно использовать следующий код:

program RandomArray;

const
  k = 10; // нижняя граница диапазона
  m = 20; // верхняя граница диапазона
  arraySize = 100; // размер массива

var
  arr: array[1..arraySize] of Integer; // объявление массива
  i: Integer;

begin
  Randomize; // инициализация генератора случайных чисел
  
  // заполнение массива случайными значениями
  for i := 1 to arraySize do
    arr[i] := Random(m - k + 1) + k;
  
  // вывод массива на экран
  for i := 1 to arraySize do
    Writeln(arr[i]);

// вычисление суммы положительных элементов массива
  var positiveSum: Integer;
  positiveSum := 0;
  for i := 1 to arraySize do
    if arr[i] > 0 then
      positiveSum := positiveSum + arr[i];
  
  // вычисление суммы отрицательных элементов массива
  var negativeSum: Integer;
  negativeSum := 0;
  for i := 1 to arraySize do
    if arr[i] < 0 then
      negativeSum := negativeSum + arr[i];
  
  // вывод результатов
  Writeln('Сумма положительных элементов массива: ', positiveSum);
  Writeln('Сумма отрицательных элементов массива: ', negativeSum);
  
end.

В этом коде мы используем цикл `for` для заполнения массива `arr` случайными значениями в диапазоне от `k` до `m`. Затем мы используем еще один цикл `for` для вывода каждого элемента массива на новой строке.

Далее, мы вычисляем сумму положительных и отрицательных элементов массива, используя отдельные переменные `positiveSum` и `negativeSum`. В каждом цикле `for` мы проверяем условие, и если элемент массива соответствует условию (положительный или отрицательный), то мы увеличиваем соответствующую сумму на значение элемента массива.

Наконец, мы выводим результаты вычислений на экран.

Примечание: В коде приведены значения `k = 10` и `m = 20` в качестве примера. Вы можете изменить эти значения на свои собственные, в зависимости от требований вашей задачи.