Question

Написать программу для паскаля. Вычислить сумму элементов заданного массива, значение которых находится в интервале [a,b].

Answer 1

Ответ:

var a, b, sum : integer;

begin

 println('Введите начало массива');

 readln(a);

 println('Введите конец массива');

 readln(b);

 for i : integer := a to b do

 begin

   sum += i;

 end;

 print(sum);

end.

Answer 2

Конечно, вот пример программы на языке Паскаль для вычисления суммы элементов массива, значения которых находятся в заданном интервале [a, b]:

pascalCopy code
program SumElementsInInterval;

const
  MaxArraySize = 100; // Максимальный размер массива

var
  arr: array[1..MaxArraySize] of Integer; // Объявление массива
  n, a, b, i, sum: Integer;

begin
  writeln('Введите размер массива (n <= ', MaxArraySize, '): ');
  readln(n);

  writeln('Введите элементы массива:');
  for i := 1 to n do
  begin
    write('arr[', i, '] = ');
    readln(arr[i]);
  end;

  writeln('Введите значение a: ');
  readln(a);

  writeln('Введите значение b: ');
  readln(b);

  sum := 0;

  // Вычисление суммы элементов в заданном интервале
  for i := 1 to n do
  begin
    if (arr[i] >= a) and (arr[i] <= b) then
      sum := sum + arr[i];
  end;

  writeln('Сумма элементов в интервале [', a, ', ', b, '] = ', sum);
end.

Просто скопируйте этот код в вашу среду разработки Pascal (например, Lazarus или Free Pascal) и выполните программу. Она попросит вас ввести размер массива, элементы массива, значение a и значение b, а затем выведет сумму элементов, удовлетворяющих заданному условию.