Составьте программу которая заполняет массив а 1.10 случайными целыми числами в диапазоне от 1 до 10 и вычисляет сумму элементов массива с индексами от n до m включительно. Числа n и m введите с клавиатуры

var a: array[1 ... 10] of integer;

i, n, m, sum: integer;

begin

writeln ('Включаем генератор случайных чисел');

randomize;

writeln ('Заполняем массив случайными элементами');

for i : = 1 to 10 do a[i] : = random (10);

writeln ('Введите индекс n');

readln (n);

writeln ('Введите индекс m');

readln (m);

writeln ('Суммируем');

for i : = n to m sum : = sum + a[i];

writeln ('Сумма элементов массива на позициях от ', n, ' до ', 'm', ' равна ', sum);

end.