Question

Дан масив н 9 элементов случайные числа от -15 до 30 найти сумму элементов значение которых входят в диапазон от -5 до 15. На паскале.

Answer 1

Программа:

Pascal:

var

 arr: array[1..9] of integer;

 i, s: integer;

begin

 for i := 1 to 9 do begin

   arr[i] := random(-15, 30);

   if (arr[i] > -5) and (arr[i] < 15) then s := s + arr[i];

 end;

 writeln(arr);  writeln(s);

end.

Answer 2

Для решения данной задачи на языке Pascal можно использовать следующий код:

program SumInRange;
var
  arr: array[1..9] of integer;
  i, sum: integer;
begin
  sum := 0;
  
  { Заполняем массив случайными числами от -15 до 30 }
  randomize;
  for i := 1 to 9 do
    arr[i] := random(46) - 15;
  
  { Вычисляем сумму элементов, значение которых входит в диапазон от -5 до 15 }
  for i := 1 to 9 do
  begin
    if (arr[i] >= -5) and (arr[i] <= 15) then
      sum := sum + arr[i];
  end;
  
  writeln('Сумма элементов, значение которых входит в диапазон от -5 до 15: ', sum);
end.

В этом коде мы создаем массив `arr` из 9 элементов и заполняем его случайными числами от -15 до 30. Затем мы проходим по массиву и суммируем только те элементы, значение которых входит в диапазон от -5 до 15. Результат выводится на экран.

Примечание: В Pascal индексация массивов начинается с 1, поэтому мы используем `array[1..9]` для создания массива из 9 элементов.

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