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.