Question

дан равномерный массив заданный случайным образом в деопозоне {-15:15} вычеслите сумму положительных элементов.Программу Паскаль пожалуйста

Answer 1

Ответ:

PascalABC.NET

begin

 var A := ArrRandom(ReadInteger('длина: '), -15, 15);

 A.Where(x -> x > 0).Sum.Println;

end.

Answer 2

Для вычисления суммы положительных элементов в заданном равномерном массиве в диапазоне [-15:15] на языке Pascal (PascalABC.NET), можно использовать следующий код:

pascalCopy code
program SumPositiveElements;

const
  ArraySize = 10; // Задайте здесь желаемый размер массива

var
  arr: array[1..ArraySize] of integer;
  i, sum: integer;

begin
  // Инициализируем генератор случайных чисел
  Randomize;
  
  // Заполняем массив случайными числами в диапазоне [-15:15]
  for i := 1 to ArraySize do
    arr[i] := Random(31) - 15; // Random(31) генерирует числа от 0 до 30, вычитаем 15 для диапазона [-15:15]

  // Выводим массив на экран
  writeln('Сгенерированный массив:');
  for i := 1 to ArraySize do
    write(arr[i], ' ');
  writeln;

  // Вычисляем сумму положительных элементов массива
  sum := 0;
  for i := 1 to ArraySize do
  begin
    if arr[i] > 0 then
      sum := sum + arr[i];
  end;

  // Выводим результат
  writeln('Сумма положительных элементов: ', sum);

  readln;
end.

Программа создает массив с заданным размером ArraySize, заполняет его случайными числами в диапазоне [-15:15], а затем вычисляет сумму положительных элементов и выводит ее на экран. Обратите внимание, что я использую генератор случайных чисел Randomize и функцию Random, чтобы заполнить массив случайными числами.